paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-23 15:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ handle OT_RELJMP8 in taicpu.Matches

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

5
compiler/z80/aasmcpu.pas
View File

@ -265,7 +265,10 @@ implementation
result:=(oper.typ=top_reg) and (oper.reg=NR_AF);
OT_REG16_AF_:
result:=(oper.typ=top_reg) and (oper.reg=NR_AF_);
{todo: OT_RELJMP8}
OT_RELJMP8:
result:=(oper.typ=top_ref) and
(oper.ref^.refaddr=addr_full) and assigned(oper.ref^.symbol) and
(oper.ref^.base=NR_NO) and (oper.ref^.index=NR_NO);
OT_REF_ADDR16,
OT_REF_BC,
OT_REF_DE,