瀏覽代碼

* AVR: fixed TCpuAsmOptimizer.RegLoadedWithNewValue

git-svn-id: trunk@49126 -
(cherry picked from commit 05cf47f995cef31840beb68045e2092f8e8a6df7)
florian 4 年之前
父節點
當前提交
7ceb3854c5
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/avr/aoptcpu.pas

+ 1 - 1
compiler/avr/aoptcpu.pas

@@ -175,7 +175,7 @@ Implementation
          exit;
          exit;
        end;
        end;
       p := taicpu(hp);
       p := taicpu(hp);
-      Result := ((p.opcode in [A_LDI,A_MOV,A_LDS]) and (reg=p.oper[0]^.reg) and ((p.oper[1]^.typ<>top_reg) or (reg<>p.oper[0]^.reg))) or
+      Result := ((p.opcode in [A_LDI,A_MOV,A_LDS]) and (reg=p.oper[0]^.reg) and ((p.oper[1]^.typ<>top_reg) or (reg<>p.oper[1]^.reg))) or
         ((p.opcode in [A_LD,A_LDD,A_LPM]) and (reg=p.oper[0]^.reg) and not(RegInRef(reg,p.oper[1]^.ref^))) or
         ((p.opcode in [A_LD,A_LDD,A_LPM]) and (reg=p.oper[0]^.reg) and not(RegInRef(reg,p.oper[1]^.ref^))) or
         ((p.opcode in [A_MOVW]) and ((reg=p.oper[0]^.reg) or (TRegister(ord(reg)+1)=p.oper[0]^.reg)) and not(reg=p.oper[1]^.reg) and not(TRegister(ord(reg)+1)=p.oper[1]^.reg)) or
         ((p.opcode in [A_MOVW]) and ((reg=p.oper[0]^.reg) or (TRegister(ord(reg)+1)=p.oper[0]^.reg)) and not(reg=p.oper[1]^.reg) and not(TRegister(ord(reg)+1)=p.oper[1]^.reg)) or
         ((p.opcode in [A_POP]) and (reg=p.oper[0]^.reg));
         ((p.opcode in [A_POP]) and (reg=p.oper[0]^.reg));