Explorar o código

* missing instruction type check

git-svn-id: trunk@33945 -
Jonas Maebe %!s(int64=9) %!d(string=hai) anos
pai
achega
cf6c7a0a1d
Modificáronse 1 ficheiros con 1 adicións e 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