Explorar el Código

* missing instruction type check

git-svn-id: trunk@33945 -
Jonas Maebe hace 9 años
padre
commit
cf6c7a0a1d
Se han modificado 1 ficheros con 1 adiciones y 0 borrados
  1. 1 0
      compiler/x86/aoptx86.pas

+ 1 - 0
compiler/x86/aoptx86.pas

@@ -910,6 +910,7 @@ unit aoptx86;
           GetNextIntruction_p and
           (hp1.typ = ait_instruction) and
           GetNextInstruction(hp1, hp2) and
+          (hp2.typ = ait_instruction) and
           MatchInstruction(taicpu(hp2),A_MOV,[]) and
           OpsEqual(taicpu(hp2).oper[1]^, taicpu(p).oper[0]^) and
           (IsFoldableArithOp(taicpu(hp1), taicpu(p).oper[1]^.reg) or