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

+ support signed 8-bit immediate constants in the Z80 internal asm writer as well

Browse Source 
git-svn-id: trunk@45284 -
This commit is contained in:
nickysn 2020-05-06 00:13:10 +00:00
parent 11a7b8592f
commit 0d402a1341
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/z80/aasmcpu.pas
View File

@ -213,7 +213,7 @@ implementation
OT_IMM3:
result:=(oper.typ=top_const) and (oper.val>=0) and (oper.val<=7);
OT_IMM8:
result:=((oper.typ=top_const) and (oper.val>=0) and (oper.val<=255)) or
result:=((oper.typ=top_const) and (oper.val>=-128) 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));