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

* ARM: Do not use R9 as a fixed GOT register.

Browse Source 
git-svn-id: trunk@31712 -
This commit is contained in:
yury 2015-09-16 13:52:15 +00:00
parent c670fdd1e8
commit f2c8824963
2 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/arm/cgcpu.pas
View File

@ -2344,20 +2344,31 @@ unit cgcpu;
(pi_needs_got in current_procinfo.flags) and
(tf_pic_uses_got in target_info.flags) then
begin
a_reg_alloc(list,current_procinfo.got); // Alloc PIC register
if getsupreg(current_procinfo.got) < first_int_imreg then
include(rg[R_INTREGISTER].used_in_proc,getsupreg(current_procinfo.got));
reference_reset(ref,4);
current_asmdata.getglobaldatalabel(l);
cg.a_label(current_procinfo.aktlocaldata,l);
ref.symbol:=l;
ref.base:=NR_PC;
ref.symboldata:=current_procinfo.aktlocaldata.last;
list.concat(Taicpu.op_reg_ref(A_LDR,current_procinfo.got,ref));
a_reg_alloc(list,NR_R12);
list.concat(Taicpu.op_reg_ref(A_LDR,NR_R12,ref));
current_asmdata.getaddrlabel(l);
current_procinfo.aktlocaldata.concat(tai_const.Create_rel_sym_offset(aitconst_32bit,l,current_asmdata.RefAsmSymbol('_GLOBAL_OFFSET_TABLE_'),-8));
cg.a_label(list,l);
list.concat(Taicpu.op_reg_reg_reg(A_ADD,current_procinfo.got,NR_PC,current_procinfo.got));
if cs_opt_regvar in current_settings.optimizerswitches then
begin
{
When regvars are used, it is needed to perform GOT calculations using the scratch register R12
and then MOV the result to the GOT register. Otherwise the register allocator will use
register R0 as temp to perform calculations in case if a procedure uses all available registers.
It leads to corruption of R0 which is normally holds a value of the first procedure parameter.
}
list.concat(Taicpu.op_reg_reg_reg(A_ADD,NR_R12,NR_PC,NR_R12));
list.concat(Taicpu.op_reg_reg(A_MOV,current_procinfo.got,NR_R12));
end
else
list.concat(Taicpu.op_reg_reg_reg(A_ADD,current_procinfo.got,NR_PC,NR_R12));
a_reg_dealloc(list,NR_R12);
end;
end;

2
compiler/arm/cpupi.pas
View File

@ -265,7 +265,7 @@ unit cpupi;
begin
{ darwin doesn't use a got }
if tf_pic_uses_got in target_info.flags then
got := NR_PIC_OFFSET_REG;
got := cg.getaddressregister(list);
end;