paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 10:49:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Mac style resource files can now be included in MacOS

Browse Source
This commit is contained in:
olle 2005-01-24 17:53:12 +00:00
parent 469d1cc5cf
commit 39ba224077
1 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/systems/t_macos.pas
View File

@ -126,9 +126,9 @@ begin
if apptype = app_cui then
Add('"{PPCLibraries}PPCSIOW.o" '#182);
if (apptype = app_tool) or (apptype = app_cui) then
Add('"{PPCLibraries}PPCToolLibs.o" '#182);
{Even GUI apps must link to PPCToolLibs, because of the System unit
which can be used by MPW tools as well as by GUI apps.}
Add('"{PPCLibraries}PPCToolLibs.o" '#182);
Add('"{SharedLibraries}InterfaceLib" '#182);
Add('"{SharedLibraries}StdCLib" '#182);
Add('"{SharedLibraries}MathLib" '#182);
@ -160,6 +160,17 @@ begin
Add('Rez -append "{RIncludes}"SIOW.r -o ' + ScriptFixFileName(current_module.exefilename^));
Add('Exit If "{Status}" != 0');
end;
while not (current_module.ResourceFiles.Empty) do
begin
s := Current_module.ResourceFiles.GetFirst;
if Copy(s,Length(s)-1,Length(s)) = '.r' then
Add('Rez -append ' + s + ' -o ' + ScriptFixFileName(current_module.exefilename^))
else
Add('DeRez ' + s + ' | Rez -append -o ' + ScriptFixFileName(current_module.exefilename^));
Add('Exit If "{Status}" != 0');
end;
end;
{ Write and Close response }
@ -247,7 +258,10 @@ initialization
end.
{
$Log$
Revision 1.18 2005-01-09 16:35:41 olle
Revision 1.19 2005-01-24 17:53:12 olle
+ Mac style resource files can now be included in MacOS
Revision 1.18 2005/01/09 16:35:41 olle
+ linker response file is now removed after linking
Revision 1.17 2004/12/28 22:00:15 olle