소스 검색

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

git-svn-id: trunk@3976 -

Jonas Maebe 19 년 전
부모
커밋
e32e5e1f9f
1개의 변경된 파일4개의 추가작업 그리고 2개의 파일을 삭제
  1. 4 2
      compiler/powerpc/cgcpu.pas

+ 4 - 2
compiler/powerpc/cgcpu.pas

@@ -2070,8 +2070,10 @@ const
           end
         { case 0 }
         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));
       end;