paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* set the correct expectloc in the first pass for pointer comparisons on the Z80

Browse Source 
git-svn-id: branches/z80@45039 -
This commit is contained in:
nickysn 2020-04-23 14:00:38 +00:00
parent 0a017f1634
commit 9d1a9354c2
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/z80/nz80add.pas
View File

@ -37,6 +37,7 @@ interface
function GetResFlags(unsigned:Boolean;anodetype:tnodetype):TResFlags;
protected
function use_mul_helper: boolean;override;
function first_cmppointer: tnode;override;
function pass_1 : tnode;override;
procedure second_cmpordinal;override;
procedure second_cmpsmallset;override;
@ -142,6 +143,13 @@ interface
end;
function TZ80AddNode.first_cmppointer: tnode;
begin
result:=nil;
expectloc:=LOC_JUMP;
end;
procedure TZ80AddNode.second_cmpsmallset;
procedure gencmp(tmpreg1,tmpreg2 : tregister);