paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 19:12:27 +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
begin
aprocdef.setmangledname(name);
end
end
else
message(parser_e_empty_import_name);
end;
@ -166,7 +166,7 @@ begin
Add('PPCLink '#182);
{ Add MPW standard libraries}
if apptype <> app_tool then
if apptype = app_cui then
begin
Add('"{PPCLibraries}PPCSIOW.o" '#182);
Add('"{PPCLibraries}PPCToolLibs.o" '#182);
@ -190,7 +190,7 @@ begin
if apptype = app_tool then
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('-tocdataref off -sym on -dead on -o '+ ScriptFixFileName(current_module.exefilename^));
@ -198,7 +198,7 @@ begin
Add('Exit If "{Status}" != 0');
{Add mac resources}
if apptype <> app_tool then //If SIOW
if apptype = app_cui then
begin
Add('Rez -append "{RIncludes}"SIOW.r -o ' + ScriptFixFileName(current_module.exefilename^));
Add('Exit If "{Status}" != 0');
@ -228,7 +228,10 @@ initialization
end.
{
$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
+ Scripts support apptype tool
+ Added some ScriptFixFileName