浏览代码

Merged revisions 2313 via svnmerge from
svn+ssh://[email protected]/FPC/svn/fpc/trunk

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

git-svn-id: branches/fixes_2_0@2314 -

Jonas Maebe 19 年之前
父节点
当前提交
a452a90ed5
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      compiler/ncgutil.pas

+ 2 - 1
compiler/ncgutil.pas

@@ -1594,7 +1594,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