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

+ added a nodetype parameter to TZ80AddNode.GetResFlags

Browse Source 
git-svn-id: branches/z80@44730 -
This commit is contained in:
nickysn 2020-04-16 03:16:18 +00:00
parent 2e6b36f57d
commit 6b74573677
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/z80/nz80add.pas
View File

@ -34,7 +34,7 @@ interface
TZ80AddNode = class(tcgaddnode)
private
function GetResFlags(unsigned:Boolean):TResFlags;
function GetResFlags(unsigned:Boolean;anodetype:tnodetype):TResFlags;
protected
function pass_1 : tnode;override;
procedure second_cmpordinal;override;
@ -62,9 +62,9 @@ interface
TZ80AddNode
*****************************************************************************}
function TZ80AddNode.GetResFlags(unsigned:Boolean):TResFlags;
function TZ80AddNode.GetResFlags(unsigned: Boolean; anodetype: tnodetype): TResFlags;
begin
case NodeType of
case anodetype of
equaln:
GetResFlags:=F_E;
unequaln:
@ -74,7 +74,7 @@ interface
begin
{ signed }
if nf_swapped in flags then
case NodeType of
case anodetype of
ltn:
GetResFlags:=F_NotPossible;
lten:
@ -87,7 +87,7 @@ interface
internalerror(2014082020);
end
else
case NodeType of
case anodetype of
ltn:
GetResFlags:=F_M;
lten:
@ -104,7 +104,7 @@ interface
begin
{ unsigned }
if nf_swapped in Flags then
case NodeType of
case anodetype of
ltn:
GetResFlags:=F_NotPossible;
lten:
@ -117,7 +117,7 @@ interface
internalerror(2014082022);
end
else
case NodeType of
case anodetype of
ltn:
GetResFlags:=F_C;
lten:
@ -206,7 +206,7 @@ interface
if (opsize=OS_8) or ((opsize=OS_S8) and (NodeType in [equaln,unequaln])) then
begin
if getresflags(unsigned)=F_NotPossible then
if getresflags(unsigned,NodeType)=F_NotPossible then
swapleftright;
if left.location.loc<>LOC_REGISTER then
@ -248,11 +248,11 @@ interface
end;
location_reset(location,LOC_FLAGS,OS_NO);
location.resflags:=getresflags(unsigned);
location.resflags:=getresflags(unsigned,NodeType);
end
else if opsize=OS_S8 then
begin
if getresflags(unsigned)=F_NotPossible then
if getresflags(unsigned,NodeType)=F_NotPossible then
swapleftright;
if left.location.loc<>LOC_REGISTER then
@ -298,7 +298,7 @@ interface
cg.ungetcpuregister(current_asmdata.CurrAsmList,NR_A);
location_reset(location,LOC_FLAGS,OS_NO);
location.resflags:=getresflags(unsigned);
location.resflags:=getresflags(unsigned,NodeType);
end
else
internalerror(2020040401);