mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-16 19:39:20 +02:00
+ fix for 64-bit OP_NOT in tcgz80.a_op_reg_reg_internal
git-svn-id: branches/z80@44569 -
This commit is contained in:
parent
5b8fd51b3a
commit
c0b3eb70ac
@ -530,12 +530,12 @@ unit cgcpu;
|
|||||||
OP_NOT:
|
OP_NOT:
|
||||||
begin
|
begin
|
||||||
getcpuregister(list,NR_A);
|
getcpuregister(list,NR_A);
|
||||||
for i:=tcgsize2size[size] downto 1 do
|
for i:=1 to tcgsize2size[size] do
|
||||||
begin
|
begin
|
||||||
a_load_reg_reg(list,OS_8,OS_8,src,NR_A);
|
a_load_reg_reg(list,OS_8,OS_8,src,NR_A);
|
||||||
list.concat(taicpu.op_none(A_CPL));
|
list.concat(taicpu.op_none(A_CPL));
|
||||||
a_load_reg_reg(list,OS_8,OS_8,NR_A,dst);
|
a_load_reg_reg(list,OS_8,OS_8,NR_A,dst);
|
||||||
if i<>1 then
|
if i<>tcgsize2size[size] then
|
||||||
NextSrcDst;
|
NextSrcDst;
|
||||||
end;
|
end;
|
||||||
ungetcpuregister(list,NR_A);
|
ungetcpuregister(list,NR_A);
|
||||||
|
Loading…
Reference in New Issue
Block a user