Преглед изворни кода

* patch by Christo Crause: fix for r43136

git-svn-id: trunk@43169 -
(cherry picked from commit 5fc12500f277327255e011decd672285b71892c7)
florian пре 5 година
родитељ
комит
63375effda
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      compiler/avr/cgcpu.pas

+ 1 - 1
compiler/avr/cgcpu.pas

@@ -513,7 +513,7 @@ unit cgcpu;
                            if op=OP_SHL then
                            if op=OP_SHL then
                              list.concat(taicpu.op_reg(A_ROL,GetOffsetReg64(dst,NR_NO,i-1)))
                              list.concat(taicpu.op_reg(A_ROL,GetOffsetReg64(dst,NR_NO,i-1)))
                            else
                            else
-                             list.concat(taicpu.op_reg(A_ROR,GetOffsetReg64(dst,NR_NO,tcgsize2size[size]-i-b)));
+                             list.concat(taicpu.op_reg(A_ROR,GetOffsetReg64(dst,NR_NO,tcgsize2size[size]-i)));
                        end;
                        end;
                      list.concat(taicpu.op_reg(A_DEC,countreg));
                      list.concat(taicpu.op_reg(A_DEC,countreg));
                      a_jmp_flags(list,F_NE,l1);
                      a_jmp_flags(list,F_NE,l1);