From 39ba22407757ac71181fb4f1c54ecbdf27844400 Mon Sep 17 00:00:00 2001 From: olle Date: Mon, 24 Jan 2005 17:53:12 +0000 Subject: [PATCH] + Mac style resource files can now be included in MacOS --- compiler/systems/t_macos.pas | 22 ++++++++++++++++++---- 1 file changed, 18 insertions(+), 4 deletions(-) diff --git a/compiler/systems/t_macos.pas b/compiler/systems/t_macos.pas index 0b36252a40..2fc877f593 100644 --- a/compiler/systems/t_macos.pas +++ b/compiler/systems/t_macos.pas @@ -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