[fpc-devel] problem with fpcres on macosx

[Giulio Bernardi]

Il 25/01/2010 15.40, zeljko ha scritto:
> Hi all,
>
> I've already filled up an issue
> http://bugs.freepascal.org/view.php?id=15586 which shows the problem.
> It cannot link application with>  255 lfms (mac only - win32&  linux are ok).
> fpc-2.4.1 r14802
>
> Anyone ?
>
Could you please make a test with the code below?
Put the attached program in a new folder (since it creates a lot of
files), then compile the program from the Terminal with
fpc genres.pas
It will create 260 small .lfm files and a test.pas file.
try to compile test.pas with
fpc test.pas
And report the error message you receive.
I want to understand if it is fpc, fpcres or the linker who complains.

Giulio

cut and paste the text below in a genres.pas file
----------------------------------------------------------------------
program genres;

{$mode objfpc}{$h+}

uses
   classes, sysutils;

procedure genfile(i : integer; prog : TStringList);
var
   str : TStringList;
   nstr : string;
begin
   nstr:=IntToStr(i);
   str:=TStringList.Create;
   str.add('object AboutForm'+nstr+': TAboutForm'+nstr);
   str.add('end');
   str.SaveToFile('res'+nstr+'.lfm');
   str.Free;
   prog.Add('{$R res'+nstr+'.lfm}');
end;

function progstart : TStringList;
var
   str : TStringList;
begin
   str:=TStringList.Create;
   str.Add('program test;');
   str.Add('');
   Result:=str;
end;

procedure progend(str : TStringList);
begin
   str.Add('');
   str.Add('begin');
   str.Add('end.');
   str.SaveToFile('test.pas');
   str.Free;
end;

var
   i : integer;
   str : TStringList;
begin
   str:=progstart;
   for i:=1 to 260 do
     genfile(i,str);
   progend(str);
end.