paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 14:20:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Z80: support the flags subregisters in the registers_interfere function

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

24
compiler/z80/cpubase.pas
View File

@ -494,9 +494,17 @@ unit cpubase;
NR_A:
result:=(reg2=NR_A) or (reg2=NR_AF);
NR_F:
result:=(reg2=NR_F) or (reg2=NR_AF);
result:=(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_AF:
result:=(reg2=NR_A) or (reg2=NR_F) or (reg2=NR_AF);
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_CARRYFLAG,NR_ADDSUBTRACTFLAG,NR_PARITYOVERFLOWFLAG,NR_HALFCARRYFLAG,NR_ZEROFLAG,NR_SIGNFLAG:
result:=(reg2=NR_F) or (reg2=NR_AF) or (reg2=reg1);
NR_B:
result:=(reg2=NR_B) or (reg2=NR_BC);
NR_C:
@ -518,9 +526,17 @@ unit cpubase;
NR_A_:
result:=(reg2=NR_A_) or (reg2=NR_AF_);
NR_F_:
result:=(reg2=NR_F_) or (reg2=NR_AF_);
result:=(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_AF_:
result:=(reg2=NR_A_) or (reg2=NR_F_) or (reg2=NR_AF_);
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_CARRYFLAG_,NR_ADDSUBTRACTFLAG_,NR_PARITYOVERFLOWFLAG_,NR_HALFCARRYFLAG_,NR_ZEROFLAG_,NR_SIGNFLAG_:
result:=(reg2=NR_F_) or (reg2=NR_AF_) or (reg2=reg1);
NR_B_:
result:=(reg2=NR_B_) or (reg2=NR_BC_);
NR_C_: