Преглед на файлове

* missing instruction type check

git-svn-id: trunk@33945 -
Jonas Maebe преди 9 години
родител
ревизия
cf6c7a0a1d
променени са 1 файла, в които са добавени 1 реда и са изтрити 0 реда
  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