paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 16:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ enable the sdasz80 lameness check permanently, because the system unit now

Browse Source 
compiles, and it's important to catch other similar errors also

git-svn-id: trunk@45158 -
This commit is contained in:
nickysn 2020-04-28 19:34:38 +00:00
parent 07a8af33b1
commit 86e04ddd5c
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/z80/agsdasz80.pas
View File

@ -405,7 +405,6 @@ unit agsdasz80;
((o.ref^.base<>NR_NO) or (o.ref^.index<>NR_NO)) and ((o.ref^.base<>NR_NO) or (o.ref^.index<>NR_NO)) and
(o.ref^.offset<>0) then (o.ref^.offset<>0) then
begin begin
{$ifdef Z80_SDASZ80_LAMENESS_WORKAROUND}
{ sdasz80 doesn't range check the offset d in the (IX+d) and { sdasz80 doesn't range check the offset d in the (IX+d) and
(IY+d) addressing modes, but instead truncates it to (IY+d) addressing modes, but instead truncates it to
shortint, introducing silent bugs, and prevents us from shortint, introducing silent bugs, and prevents us from
@ -413,7 +412,6 @@ unit agsdasz80;
if ((o.ref^.base<>NR_NO) or (o.ref^.index<>NR_NO)) and if ((o.ref^.base<>NR_NO) or (o.ref^.index<>NR_NO)) and
((o.ref^.offset<-128) or (o.ref^.offset>127)) then ((o.ref^.offset<-128) or (o.ref^.offset>127)) then
internalerror(2020042802); internalerror(2020042802);
{$endif Z80_SDASZ80_LAMENESS_WORKAROUND}
writer.AsmWrite(tostr(o.ref^.offset)); writer.AsmWrite(tostr(o.ref^.offset));
writer.AsmWrite(' ('); writer.AsmWrite(' (');
if o.ref^.base<>NR_NO then if o.ref^.base<>NR_NO then