arm: an attempt to improve the a_op_const_ref patch in r27881

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@27882 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 1 insertions, 3 deletions

diff --git a/compiler/arm/cgcpu.pas b/compiler/arm/cgcpu.pas
index 65dd9b4369..0b5aa7b7e0 100644
--- a/compiler/arm/cgcpu.pas
+++ b/compiler/arm/cgcpu.pas
@@ -693,9 +693,7 @@ unit cgcpu;
        begin
          tmpreg:=getintregister(list,size);
          tmpresreg:=getintregister(list,size);
-         tmpref:=ref;
-         fixref(list,tmpref);
-         a_load_ref_reg(list,size,size,tmpref,tmpreg);
+         tmpref:=a_internal_load_ref_reg(list,size,size,ref,tmpreg);
          a_op_const_reg_reg(list,op,size,a,tmpreg,tmpresreg);
          a_load_reg_ref(list,size,size,tmpresreg,tmpref);
        end;