paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 22:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Never generate a "main" symbol for PASCALMAIN for Darwin and classic

Browse Source 
Mac OS, they use a C-main in their system unit
This commit is contained in:
Jonas Maebe 2004-01-04 21:08:09 +00:00
parent fb999d409f
commit 7f911c2f4a
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/pmodules.pas
View File

@ -1296,7 +1296,8 @@ implementation
{ The program intialization needs an alias, so it can be called { The program intialization needs an alias, so it can be called
from the bootstrap code.} from the bootstrap code.}
if islibrary then if islibrary or
(target_info.system in [system_powerpc_macos,system_powerpc_darwin]) then
begin begin
pd:=create_main_proc(make_mangledname('',current_module.localsymtable,'main'),potype_proginit,st); pd:=create_main_proc(make_mangledname('',current_module.localsymtable,'main'),potype_proginit,st);
{ Win32 startup code needs a single name } { Win32 startup code needs a single name }
@ -1439,7 +1440,11 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.135 2003-12-12 19:42:21 peter Revision 1.136 2004-01-04 21:08:09 jonas
* Never generate a "main" symbol for PASCALMAIN for Darwin and classic
Mac OS, they use a C-main in their system unit
Revision 1.135 2003/12/12 19:42:21 peter
* check unit name when expected unitname > 8 chars * check unit name when expected unitname > 8 chars
Revision 1.134 2003/12/08 22:33:43 peter Revision 1.134 2003/12/08 22:33:43 peter