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

+ handle OT_REG8_C_PORT in taicpu.Matches

Browse Source 
git-svn-id: trunk@45183 -
This commit is contained in:
nickysn 2020-04-29 23:30:43 +00:00
parent a063a53863
commit 4c021c100a
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/z80/aasmcpu.pas
View File

@ -237,7 +237,12 @@ implementation
result:=(oper.typ=top_reg) and (oper.reg=NR_I); result:=(oper.typ=top_reg) and (oper.reg=NR_I);
OT_REG8_R: OT_REG8_R:
result:=(oper.typ=top_reg) and (oper.reg=NR_R); result:=(oper.typ=top_reg) and (oper.reg=NR_R);
{todo: OT_REG8_C_PORT} OT_REG8_C_PORT:
result:=(oper.typ=top_ref) and
(((oper.ref^.base=NR_C) and (oper.ref^.index=NR_NO)) or
((oper.ref^.base=NR_NO) and (oper.ref^.index=NR_C))) and
(oper.ref^.symbol=nil) and (oper.ref^.relsymbol=nil) and
(oper.ref^.offset=0);
OT_REG16_IX: OT_REG16_IX:
result:=(oper.typ=top_reg) and (oper.reg=NR_IX); result:=(oper.typ=top_reg) and (oper.reg=NR_IX);
OT_REG16_IY: OT_REG16_IY: