Parcourir la source

Merged revisions 2212 via svnmerge from
svn+ssh://[email protected]/FPC/svn/fpc/trunk

r2212 (jonas)
* fixed bug fixref whereby a register of a reference was overwritten

git-svn-id: branches/fixes_2_0@2213 -

Jonas Maebe il y a 20 ans
Parent
commit
34ac32d9a1
1 fichiers modifiés avec 4 ajouts et 1 suppressions
  1. 4 1
      compiler/powerpc/cgcpu.pas

+ 4 - 1
compiler/powerpc/cgcpu.pas

@@ -2157,7 +2157,10 @@ const
              else if (ref.index = NR_NO) then
                ref.index := tmpreg
              else
-               list.concat(taicpu.op_reg_reg_reg(A_ADD,ref.base,ref.base,tmpreg));
+               begin
+                 list.concat(taicpu.op_reg_reg_reg(A_ADD,tmpreg,ref.base,tmpreg));
+                 ref.base := tmpreg;
+               end;
              ref.symbol := nil;
            end;