Explorar o código

* fixed 64-bit OP_ADD in tcgz80.a_op_const_reg_internal

git-svn-id: branches/z80@44657 -
nickysn %!s(int64=5) %!d(string=hai) anos
pai
achega
75a2f0352e
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      compiler/z80/cgcpu.pas

+ 1 - 1
compiler/z80/cgcpu.pas

@@ -792,7 +792,7 @@ unit cgcpu;
 
 
       procedure NextReg;
       procedure NextReg;
         begin
         begin
-          if i=5 then
+          if i=4 then
             reg:=reghi
             reg:=reghi
           else
           else
             reg:=GetNextReg(reg);
             reg:=GetNextReg(reg);