paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 08:49:38 +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

10
compiler/arm/cgcpu.pas
View File

@ -683,6 +683,12 @@ unit cgcpu;
tmpref.symbol:=l;
tmpref.base:=NR_R15;
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
else
a_load_const_reg(list,OS_ADDR,ref.offset,tmpreg);
@ -947,7 +953,7 @@ unit cgcpu;
so.shiftimm:=shiftimm;
list.concat(taicpu.op_reg_reg_shifterop(A_MOV,reg2,reg,so));
end;
function do_conv(size : tcgsize) : boolean;
begin
result:=true;
@ -972,7 +978,7 @@ unit cgcpu;
end;
conv_done:=result;
end;
var
instr: taicpu;
begin

2
compiler/arm/cpubase.pas
View File

@ -134,7 +134,7 @@ unit cpubase;
const
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_S,PF_D,PF_E,PF_None,PF_None);