paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed interface wrappers for darwin in case they end up in

Browse Source 
a shared library

git-svn-id: trunk@3976 -
This commit is contained in:
Jonas Maebe 2006-06-27 13:42:00 +00:00
parent 1e66422b82
commit e32e5e1f9f
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/powerpc/cgcpu.pas
View File

@ -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;