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

arm: have a CPU specific op_const_ref, so the reference doesn't get fixed up both in a_load_reg_ref and a_load_ref_reg

Browse Source 
git-svn-id: trunk@27881 -
This commit is contained in:
Károly Balogh 2014-06-06 17:44:45 +00:00
parent 17657ca11d
commit 5b262df7d0
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/arm/cgcpu.pas
View File

@ -119,6 +119,7 @@ unit cgcpu;
{ tcgarm is shared between normal arm and thumb-2 }
tcgarm = class(tbasecgarm)
procedure a_op_const_reg(list : TAsmList; Op: TOpCG; size: TCGSize; a: tcgint; reg: TRegister); override;
procedure a_op_const_ref(list : TAsmList; Op: TOpCG; size: TCGSize; a: tcgint; const ref: TReference); override;
procedure a_op_reg_reg(list : TAsmList; Op: TOpCG; size: TCGSize; src, dst: TRegister); override;
procedure a_op_const_reg_reg(list: TAsmList; op: TOpCg;
@ -685,6 +686,19 @@ unit cgcpu;
a_op_const_reg_reg(list,op,size,a,reg,reg);
end;
procedure tcgarm.a_op_const_ref(list : TAsmList; Op: TOpCG; size: TCGSize; a: tcgint; const ref: TReference);
var
tmpreg,tmpresreg : tregister;
tmpref : treference;
begin
tmpreg:=getintregister(list,size);
tmpresreg:=getintregister(list,size);
tmpref:=ref;
fixref(list,tmpref);
a_load_ref_reg(list,size,size,tmpref,tmpreg);
a_op_const_reg_reg(list,op,size,a,tmpreg,tmpresreg);
a_load_reg_ref(list,size,size,tmpresreg,tmpref);
end;
procedure tcgarm.a_op_reg_reg(list : TAsmList; Op: TOpCG; size: TCGSize; src, dst: TRegister);
var