paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 05:10:28 +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: NR_A:
result:=(reg2=NR_A) or (reg2=NR_AF); result:=(reg2=NR_A) or (reg2=NR_AF);
NR_F: 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: 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: NR_B:
result:=(reg2=NR_B) or (reg2=NR_BC); result:=(reg2=NR_B) or (reg2=NR_BC);
NR_C: NR_C:
@ -518,9 +526,17 @@ unit cpubase;
NR_A_: NR_A_:
result:=(reg2=NR_A_) or (reg2=NR_AF_); result:=(reg2=NR_A_) or (reg2=NR_AF_);
NR_F_: 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_: 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_: NR_B_:
result:=(reg2=NR_B_) or (reg2=NR_BC_); result:=(reg2=NR_B_) or (reg2=NR_BC_);
NR_C_: NR_C_: