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_IMM8 and OT_IMM16 for getting symbol addresses in taicpu.Matches

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

12
compiler/z80/aasmcpu.pas
View File

@ -205,11 +205,15 @@ implementation
OT_IMM3:
result:=(oper.typ=top_const) and (oper.val>=0) and (oper.val<=7);
OT_IMM8:
{ todo: lo8, hi8 addresses }
result:=(oper.typ=top_const) and (oper.val>=0) and (oper.val<=255);
result:=((oper.typ=top_const) and (oper.val>=0) and (oper.val<=255)) or
((oper.typ=top_ref) and
(oper.ref^.refaddr in [addr_hi8,addr_lo8]) and assigned(oper.ref^.symbol) and
(oper.ref^.base=NR_NO) and (oper.ref^.index=NR_NO));
OT_IMM16:
{ todo: addresses }
result:=(oper.typ=top_const) and (oper.val>=0) and (oper.val<=65535);
result:=((oper.typ=top_const) and (oper.val>=0) and (oper.val<=65535)) or
((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_IMM_VAL0:
result:=(oper.typ=top_const) and (oper.val=0);
OT_IMM_VAL1: