瀏覽代碼

Remove another wrong typecast when testing that a tai is an instruction

git-svn-id: trunk@40131 -
pierre 6 年之前
父節點
當前提交
96460b70b2
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/m68k/aoptcpu.pas

+ 1 - 1
compiler/m68k/aoptcpu.pas

@@ -139,7 +139,7 @@ unit aoptcpu;
       result:=false;
       result:=false;
 
 
       if GetNextInstruction(p,next) and 
       if GetNextInstruction(p,next) and 
-         (taicpu(next).typ = ait_instruction) and
+         (next.typ = ait_instruction) and
          (taicpu(next).opcode = taicpu(p).opcode) and
          (taicpu(next).opcode = taicpu(p).opcode) and
          (taicpu(p).opsize = taicpu(next).opsize) and
          (taicpu(p).opsize = taicpu(next).opsize) and
          (taicpu(p).oper[1]^.typ = top_reg) and
          (taicpu(p).oper[1]^.typ = top_reg) and