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

* handle pc relative offsets in ldf/stf correctly

Browse Source 
git-svn-id: trunk@6115 -
This commit is contained in:
florian 2007-01-21 22:55:12 +00:00
parent bb0bd621d4
commit c16c124562
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/arm/cgcpu.pas
View File

@ -683,6 +683,12 @@ unit cgcpu;
tmpref.symbol:=l; tmpref.symbol:=l;
tmpref.base:=NR_R15; tmpref.base:=NR_R15;
list.concat(taicpu.op_reg_ref(A_LDR,tmpreg,tmpref)); list.concat(taicpu.op_reg_ref(A_LDR,tmpreg,tmpref));
{ in case of LDF/STF, we got rid of the NR_R15 }
if is_pc(ref.base) then
ref.base:=NR_NO;
if is_pc(ref.index) then
ref.index:=NR_NO;
end end
else else
a_load_const_reg(list,OS_ADDR,ref.offset,tmpreg); a_load_const_reg(list,OS_ADDR,ref.offset,tmpreg);

2
compiler/arm/cpubase.pas
View File

@ -134,7 +134,7 @@ unit cpubase;
const const
cgsize2fpuoppostfix : array[OS_NO..OS_F128] of toppostfix = ( cgsize2fpuoppostfix : array[OS_NO..OS_F128] of toppostfix = (
PF_E, PF_None,
PF_None,PF_None,PF_None,PF_None,PF_None,PF_None,PF_None,PF_None,PF_None,PF_None, PF_None,PF_None,PF_None,PF_None,PF_None,PF_None,PF_None,PF_None,PF_None,PF_None,
PF_S,PF_D,PF_E,PF_None,PF_None); PF_S,PF_D,PF_E,PF_None,PF_None);