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

* fixed a_jmp_name() for darwin/i386 (go via a stub)

Browse Source 
* fixed g_external_wrapper for darwin/i386 (both with and without pic,
    by using a_jmp_name(), because the darwin jump stubs can always
    be called directly)

git-svn-id: trunk@8669 -
This commit is contained in:
Jonas Maebe 2007-09-28 14:12:46 +00:00
parent 559bb6226e
commit c84744b27f
1 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/x86/cgx86.pas
View File

@ -567,8 +567,17 @@ unit cgx86;
****************************************************************************}
procedure tcgx86.a_jmp_name(list : TAsmList;const s : string);
var
r: treference;
begin
list.concat(taicpu.op_sym(A_JMP,S_NO,current_asmdata.RefAsmSymbol(s)));
if (target_info.system<>system_i386_darwin) then
list.concat(taicpu.op_sym(A_JMP,S_NO,current_asmdata.RefAsmSymbol(s)))
else
begin
reference_reset_symbol(r,get_darwin_call_stub(s),0);
r.refaddr:=addr_full;
list.concat(taicpu.op_ref(A_JMP,S_NO,r));
end;
end;
@ -2038,6 +2047,13 @@ unit cgx86;
ref : treference;
sym : tasmsymbol;
begin
if (target_info.system=system_i386_darwin) then
begin
{ a_jmp_name jumps to a stub which is always pic-safe on darwin }
inherited g_external_wrapper(list,procdef,externalname);
exit;
end;
sym:=current_asmdata.RefAsmSymbol(externalname);
reference_reset_symbol(ref,sym,0);
@ -2048,13 +2064,7 @@ unit cgx86;
got loaded
}
g_maybe_got_init(list);
if (target_info.system<>system_i386_darwin) then
ref.refaddr:=addr_pic
else
begin
ref.refaddr:=addr_no;
ref.relsymbol:=current_procinfo.CurrGOTLabel;
end
ref.refaddr:=addr_pic
end
else
ref.refaddr:=addr_full;