Pārlūkot izejas kodu

* set p to a valid instruction

git-svn-id: trunk@25912 -
florian 11 gadi atpakaļ
vecāks
revīzija
1843ed59b5
1 mainītis faili ar 2 papildinājumiem un 0 dzēšanām
  1. 2 0
      compiler/i386/popt386.pas

+ 2 - 0
compiler/i386/popt386.pas

@@ -1409,6 +1409,7 @@ begin
                           insertllitem(asml,hp2,hp2.next,hp1);
                           asml.remove(p);
                           p.free;
+                          p:=hp1;
                         end;
                       if GetNextInstruction(p, hp1) and
                          MatchInstruction(hp1,A_LEA,[S_L]) and
@@ -1433,6 +1434,7 @@ begin
                               DebugMsg('Peephole MovLea2Add done',hp1);
                               asml.remove(p);
                               p.free;
+                              p:=hp1;
                             end;
                         end;
                     end;