Browse Source

* fixed interface wrappers for darwin in case they end up in
a shared library

git-svn-id: trunk@3976 -

Jonas Maebe 19 years ago
parent
commit
e32e5e1f9f
1 changed files with 4 additions and 2 deletions
  1. 4 2
      compiler/powerpc/cgcpu.pas

+ 4 - 2
compiler/powerpc/cgcpu.pas

@@ -2070,8 +2070,10 @@ const
           end
           end
         { case 0 }
         { case 0 }
         else
         else
-          list.concat(taicpu.op_sym(A_B,current_asmdata.RefAsmSymbol(procdef.mangledname)));
-
+          if not(target_info.system = system_powerpc_darwin) then
+            list.concat(taicpu.op_sym(A_B,current_asmdata.RefAsmSymbol(procdef.mangledname)))
+          else
+            list.concat(taicpu.op_sym(A_B,get_darwin_call_stub(procdef.mangledname)));
         List.concat(Tai_symbol_end.Createname(labelname));
         List.concat(Tai_symbol_end.Createname(labelname));
       end;
       end;