paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:49:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ fixed 64-bit OP_NEG in a_op_reg_reg_internal

Browse Source 
git-svn-id: branches/z80@45004 -
This commit is contained in:
nickysn 2020-04-22 21:48:42 +00:00
parent ccd23d288d
commit e7f707cd78
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/z80/cgcpu.pas
View File

@ -718,7 +718,7 @@ unit cgcpu;
a_load_reg_reg(list,OS_8,OS_8,NR_A,tmpreg2); a_load_reg_reg(list,OS_8,OS_8,NR_A,tmpreg2);
if i<>tcgsize2size[size] then if i<>tcgsize2size[size] then
begin begin
if i=5 then if i=4 then
begin begin
tmpreg:=srchi; tmpreg:=srchi;
tmpreg2:=dsthi; tmpreg2:=dsthi;
@ -744,7 +744,7 @@ unit cgcpu;
a_load_reg_reg(list,OS_8,OS_8,NR_A,tmpreg2); a_load_reg_reg(list,OS_8,OS_8,NR_A,tmpreg2);
if i<>tcgsize2size[size] then if i<>tcgsize2size[size] then
begin begin
if i=5 then if i=4 then
begin begin
tmpreg2:=dsthi; tmpreg2:=dsthi;
end end