paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* SPARC: generate PIC prologue as recommended by ABI, it does not require FPC_GETGOT helper.

Browse Source 
git-svn-id: trunk@26264 -
This commit is contained in:
sergei 2013-12-22 14:20:18 +00:00
parent 6469d41e2a
commit 65d24e000f
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/sparc/cgcpu.pas
View File

@ -1262,23 +1262,27 @@ implementation
procedure TCgSparc.g_maybe_got_init(list : TAsmList); procedure TCgSparc.g_maybe_got_init(list : TAsmList);
var var
ref : treference; ref : treference;
hl : tasmlabel;
begin begin
if (cs_create_pic in current_settings.moduleswitches) and if (cs_create_pic in current_settings.moduleswitches) and
(pi_needs_got in current_procinfo.flags) then (pi_needs_got in current_procinfo.flags) then
begin begin
current_procinfo.got:=NR_L7; current_procinfo.got:=NR_L7;
{ Set register $l7 to _GLOBAL_OFFSET_TABLE_ at function entry } current_asmdata.getjumplabel(hl);
{ The offsets -8 for %hi and -4 for %lo correspnod to the list.concat(taicpu.op_sym(A_CALL,hl));
code distance from the call to FPC_GETGOT inxtruction } { ABI recommends the following sequence:
reference_reset_symbol(ref,current_asmdata.RefAsmSymbol('_GLOBAL_OFFSET_TABLE_'),-8,sizeof(pint)); 1: call 2f
sethi %hi(_GLOBAL_OFFSET_TABLE_+(.-1b)), %l7
2: or %l7, %lo(_GLOBAL_OFFSET_TABLE_+(.-1b)), %l7
add %l7, %o7, %l7 }
reference_reset_symbol(ref,current_asmdata.RefAsmSymbol('_GLOBAL_OFFSET_TABLE_'),4,sizeof(pint));
ref.refaddr:=addr_high; ref.refaddr:=addr_high;
list.concat(taicpu.op_ref_reg(A_SETHI,ref,NR_L7)); list.concat(taicpu.op_ref_reg(A_SETHI,ref,NR_L7));
cg.a_label(list,hl);
ref.refaddr:=addr_low; ref.refaddr:=addr_low;
ref.offset:=-4; ref.offset:=8;
list.concat(Taicpu.Op_reg_ref_reg(A_OR,NR_L7,ref,NR_L7)); list.concat(Taicpu.Op_reg_ref_reg(A_OR,NR_L7,ref,NR_L7));
list.concat(Taicpu.Op_sym(A_CALL,current_asmdata.RefAsmSymbol('FPC_GETGOT'))); list.concat(taicpu.op_reg_reg_reg(A_ADD,NR_L7,NR_O7,NR_L7));
{ Delay slot }
list.concat(Taicpu.Op_none(A_NOP));
end; end;
end; end;