paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 23:09:18 +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; function GetResFlags(unsigned:Boolean;anodetype:tnodetype):TResFlags;
protected protected
function use_mul_helper: boolean;override; function use_mul_helper: boolean;override;
function first_cmppointer: tnode;override;
function pass_1 : tnode;override; function pass_1 : tnode;override;
procedure second_cmpordinal;override; procedure second_cmpordinal;override;
procedure second_cmpsmallset;override; procedure second_cmpsmallset;override;
@ -142,6 +143,13 @@ interface
end; end;
function TZ80AddNode.first_cmppointer: tnode;
begin
result:=nil;
expectloc:=LOC_JUMP;
end;
procedure TZ80AddNode.second_cmpsmallset; procedure TZ80AddNode.second_cmpsmallset;
procedure gencmp(tmpreg1,tmpreg2 : tregister); procedure gencmp(tmpreg1,tmpreg2 : tregister);