paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-03 07:09:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Z80: support all the flags subregisters in super_registers_equal

Browse Source 
git-svn-id: trunk@45346 -
This commit is contained in:
nickysn 2020-05-12 01:47:58 +00:00
parent fe12026959
commit c6c834949f
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/z80/cpubase.pas
View File

@ -460,16 +460,22 @@ unit cpubase;
function super_registers_equal(reg1, reg2: TRegister): Boolean;
begin
case reg1 of
NR_A,NR_F,NR_AF:
result:=(reg2=NR_A) or (reg2=NR_F) or (reg2=NR_AF);
NR_A,NR_F,NR_AF,NR_CARRYFLAG,NR_ADDSUBTRACTFLAG,NR_PARITYOVERFLOWFLAG,NR_HALFCARRYFLAG,NR_ZEROFLAG,NR_SIGNFLAG:
result:=(reg2=NR_A) or (reg2=NR_F) or (reg2=NR_AF) or
(reg2=NR_CARRYFLAG) or (reg2=NR_ADDSUBTRACTFLAG) or
(reg2=NR_PARITYOVERFLOWFLAG) or (reg2=NR_HALFCARRYFLAG) or
(reg2=NR_ZEROFLAG) or (reg2=NR_SIGNFLAG);
NR_B,NR_C,NR_BC:
result:=(reg2=NR_B) or (reg2=NR_C) or (reg2=NR_BC);
NR_D,NR_E,NR_DE:
result:=(reg2=NR_D) or (reg2=NR_E) or (reg2=NR_DE);
NR_H,NR_L,NR_HL:
result:=(reg2=NR_H) or (reg2=NR_L) or (reg2=NR_HL);
NR_A_,NR_F_,NR_AF_:
result:=(reg2=NR_A_) or (reg2=NR_F_) or (reg2=NR_AF_);
NR_A_,NR_F_,NR_AF_,NR_CARRYFLAG_,NR_ADDSUBTRACTFLAG_,NR_PARITYOVERFLOWFLAG_,NR_HALFCARRYFLAG_,NR_ZEROFLAG_,NR_SIGNFLAG_:
result:=(reg2=NR_A_) or (reg2=NR_F_) or (reg2=NR_AF_) or
(reg2=NR_CARRYFLAG_) or (reg2=NR_ADDSUBTRACTFLAG_) or
(reg2=NR_PARITYOVERFLOWFLAG_) or (reg2=NR_HALFCARRYFLAG_) or
(reg2=NR_ZEROFLAG_) or (reg2=NR_SIGNFLAG_);
NR_B_,NR_C_,NR_BC_:
result:=(reg2=NR_B_) or (reg2=NR_C_) or (reg2=NR_BC_);
NR_D_,NR_E_,NR_DE_: