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

* fix for Z80 pointer comparisons

Browse Source 
git-svn-id: branches/z80@44986 -
This commit is contained in:
nickysn 2020-04-22 01:45:10 +00:00
parent 22d60361a8
commit fe8b50fed3
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/nz80add.pas
View File

@ -634,7 +634,7 @@ interface
procedure TZ80AddNode.second_cmpordinal; procedure TZ80AddNode.second_cmpordinal;
begin begin
if is_32bit(left.resultdef) or is_16bit(left.resultdef) then if left.resultdef.size>=2 then
second_cmp16_32_64bit second_cmp16_32_64bit
else else
second_cmp; second_cmp;