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

+ always use a mul helper on the Z80

Browse Source 
git-svn-id: branches/z80@44989 -
This commit is contained in:
nickysn 2020-04-22 02:39:26 +00:00
parent b741ed63b0
commit 242b67c50a
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/z80/nz80add.pas
View File

@ -37,6 +37,7 @@ interface
function NoEqual(anodetype:tnodetype):tnodetype;
function GetResFlags(unsigned:Boolean;anodetype:tnodetype):TResFlags;
protected
function use_mul_helper: boolean;override;
function pass_1 : tnode;override;
procedure second_cmpordinal;override;
procedure second_cmpsmallset;override;
@ -147,6 +148,12 @@ interface
end;
function TZ80AddNode.use_mul_helper: boolean;
begin
result:=(nodetype=muln);
end;
procedure TZ80AddNode.second_cmpsmallset;
procedure gencmp(tmpreg1,tmpreg2 : tregister);