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

+ handle OT_IMM_PORT in taicpu.Matches

Browse Source 
git-svn-id: trunk@45182 -
This commit is contained in:
nickysn 2020-04-29 23:23:20 +00:00
parent 552107f577
commit a063a53863
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/z80/aasmcpu.pas
View File

@ -221,7 +221,11 @@ implementation
(oper.val=$10) or (oper.val=$18) or
(oper.val=$20) or (oper.val=$28) or
(oper.val=$30) or (oper.val=$38));
{todo: OT_IMM_PORT}
OT_IMM_PORT:
result:=(oper.typ=top_ref) and
(oper.ref^.symbol=nil) and (oper.ref^.relsymbol=nil) and
(oper.ref^.base=NR_NO) and (oper.ref^.index=NR_NO) and
(oper.ref^.offset>=0) and (oper.ref^.offset<=255);
OT_REG8:
result:=(oper.typ=top_reg) and ((oper.reg=NR_A) or (oper.reg=NR_B) or
(oper.reg=NR_C) or (oper.reg=NR_D) or