Browse Source

* missing instruction type check

git-svn-id: trunk@33945 -
Jonas Maebe 9 years ago
parent
commit
cf6c7a0a1d
1 changed files with 1 additions and 0 deletions
  1. 1 0
      compiler/x86/aoptx86.pas

+ 1 - 0
compiler/x86/aoptx86.pas

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