From 7f911c2f4af99f8116ff542a6a56d515ce5ebcb5 Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Sun, 4 Jan 2004 21:08:09 +0000 Subject: [PATCH] * Never generate a "main" symbol for PASCALMAIN for Darwin and classic Mac OS, they use a C-main in their system unit --- compiler/pmodules.pas | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/compiler/pmodules.pas b/compiler/pmodules.pas index 592a57536d..0a9ff9034e 100644 --- a/compiler/pmodules.pas +++ b/compiler/pmodules.pas @@ -1296,7 +1296,8 @@ implementation { The program intialization needs an alias, so it can be called from the bootstrap code.} - if islibrary then + if islibrary or + (target_info.system in [system_powerpc_macos,system_powerpc_darwin]) then begin pd:=create_main_proc(make_mangledname('',current_module.localsymtable,'main'),potype_proginit,st); { Win32 startup code needs a single name } @@ -1439,7 +1440,11 @@ implementation end. { $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 Revision 1.134 2003/12/08 22:33:43 peter