Explorar o código

* fixed typo when checking live start of references

git-svn-id: trunk@22112 -
florian %!s(int64=13) %!d(string=hai) anos
pai
achega
53a0d3e3a3
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      compiler/arm/aoptcpu.pas

+ 1 - 1
compiler/arm/aoptcpu.pas

@@ -1165,7 +1165,7 @@ Implementation
           Top_Ref:
           Top_Ref:
             begin
             begin
               CheckLiveStart(p.oper[i]^.ref^.base);
               CheckLiveStart(p.oper[i]^.ref^.base);
-              CheckLiveStart(p.oper[i]^.ref^.base);
+              CheckLiveStart(p.oper[i]^.ref^.index);
             end;
             end;
           Top_Shifterop:
           Top_Shifterop:
             CheckLiveStart(p.oper[i]^.shifterop^.rs);
             CheckLiveStart(p.oper[i]^.shifterop^.rs);