* fixed 64-bit AND/OR/XOR in tcgz80.a_op_reg_reg_internal

git-svn-id: branches/z80@45005 -

compiler/z80/cgcpu.pas

@@ -856,11 +856,11 @@ unit cgcpu;
                getcpuregister(list,NR_A);
                for i:=1 to tcgsize2size[size] do
                  begin
+                   if i<>1 then
+                     NextSrcDst;
                    a_load_reg_reg(list,OS_8,OS_8,dst,NR_A);
                    list.concat(taicpu.op_reg_reg(topcg2asmop[op],NR_A,src));
                    a_load_reg_reg(list,OS_8,OS_8,NR_A,dst);
-                   if i<>tcgsize2size[size] then
-                     NextSrcDst;
                  end;
                ungetcpuregister(list,NR_A);
              end;