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

+ added GUI apptype to MacOS

Browse Source
This commit is contained in:
olle 2004-05-11 18:24:39 +00:00
parent 9b3be3f760
commit d5b3df22d6
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/systems/t_macos.pas
View File

@ -70,7 +70,7 @@ begin
if name<>'' then if name<>'' then
begin begin
aprocdef.setmangledname(name); aprocdef.setmangledname(name);
end end
else else
message(parser_e_empty_import_name); message(parser_e_empty_import_name);
end; end;
@ -166,7 +166,7 @@ begin
Add('PPCLink '#182); Add('PPCLink '#182);
{ Add MPW standard libraries} { Add MPW standard libraries}
if apptype <> app_tool then if apptype = app_cui then
begin begin
Add('"{PPCLibraries}PPCSIOW.o" '#182); Add('"{PPCLibraries}PPCSIOW.o" '#182);
Add('"{PPCLibraries}PPCToolLibs.o" '#182); Add('"{PPCLibraries}PPCToolLibs.o" '#182);
@ -190,7 +190,7 @@ begin
if apptype = app_tool then if apptype = app_tool then
Add('-t "MPST" -c "MPS " '#182); Add('-t "MPST" -c "MPS " '#182);
if apptype <> app_tool then //If SIOW, to avoid some warnings. if apptype = app_cui then {If SIOW, to avoid some warnings.}
Add('-ignoredups __start -ignoredups .__start -ignoredups main -ignoredups .main '#182); Add('-ignoredups __start -ignoredups .__start -ignoredups main -ignoredups .main '#182);
Add('-tocdataref off -sym on -dead on -o '+ ScriptFixFileName(current_module.exefilename^)); Add('-tocdataref off -sym on -dead on -o '+ ScriptFixFileName(current_module.exefilename^));
@ -198,7 +198,7 @@ begin
Add('Exit If "{Status}" != 0'); Add('Exit If "{Status}" != 0');
{Add mac resources} {Add mac resources}
if apptype <> app_tool then //If SIOW if apptype = app_cui then
begin begin
Add('Rez -append "{RIncludes}"SIOW.r -o ' + ScriptFixFileName(current_module.exefilename^)); Add('Rez -append "{RIncludes}"SIOW.r -o ' + ScriptFixFileName(current_module.exefilename^));
Add('Exit If "{Status}" != 0'); Add('Exit If "{Status}" != 0');
@ -228,7 +228,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.8 2004-04-06 22:44:22 olle Revision 1.9 2004-05-11 18:24:39 olle
+ added GUI apptype to MacOS
Revision 1.8 2004/04/06 22:44:22 olle
+ Status checks in scripts + Status checks in scripts
+ Scripts support apptype tool + Scripts support apptype tool
+ Added some ScriptFixFileName + Added some ScriptFixFileName