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

+ TZ80AddNode.NoEqual

Browse Source 
git-svn-id: branches/z80@44731 -
This commit is contained in:
nickysn 2020-04-16 03:57:21 +00:00
parent 6b74573677
commit 962e339ec4
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/z80/nz80add.pas
View File

@ -34,6 +34,7 @@ interface
TZ80AddNode = class(tcgaddnode)
private
function NoEqual(anodetype:tnodetype):tnodetype;
function GetResFlags(unsigned:Boolean;anodetype:tnodetype):TResFlags;
protected
function pass_1 : tnode;override;
@ -62,6 +63,18 @@ interface
TZ80AddNode
*****************************************************************************}
function TZ80AddNode.NoEqual(anodetype: tnodetype): tnodetype;
begin
if anodetype=lten then
result:=ltn
else if anodetype=gten then
result:=gtn
else
result:=anodetype;
end;
function TZ80AddNode.GetResFlags(unsigned: Boolean; anodetype: tnodetype): TResFlags;
begin
case anodetype of