paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 13:30:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't call parameter setup code for library init code (darwin/mac os)

Browse Source 
git-svn-id: trunk@2313 -
This commit is contained in:
Jonas Maebe 2006-01-20 22:00:15 +00:00
parent 10153d061d
commit 2ef0f67ebb
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ncgutil.pas
View File

@ -1703,7 +1703,8 @@ implementation
end;
{ call startup helpers from main program }
if (current_procinfo.procdef.proctypeoption=potype_proginit) then
if (current_procinfo.procdef.proctypeoption=potype_proginit) and
not(current_module.islibrary) then
begin
if (target_info.system = system_powerpc_darwin) or
(target_info.system = system_powerpc_macos) then