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

+ added z80 reference helper functions is_ref_hl,is_ref_ix,is_ref_iy,is_ref_ix_d,is_ref_iy_d

Browse Source 
git-svn-id: branches/z80@44759 -
This commit is contained in:
nickysn 2020-04-18 00:04:09 +00:00
parent 4b01ff605a
commit 5c0fa369c2
1 changed files with 51 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
compiler/z80/aasmcpu.pas
View File

@ -133,6 +133,12 @@ uses
function spilling_create_load(const ref:treference;r:tregister):Taicpu;
function spilling_create_store(r:tregister; const ref:treference):Taicpu;
function is_ref_hl(const ref:treference): Boolean;
function is_ref_ix(const ref:treference): Boolean;
function is_ref_iy(const ref:treference): Boolean;
function is_ref_ix_d(const ref:treference): Boolean;
function is_ref_iy_d(const ref:treference): Boolean;
implementation
{****************************************************************************
@ -331,6 +337,51 @@ implementation
end;
function is_ref_hl(const ref: treference): Boolean;
begin
result:=(((ref.base=NR_HL) and (ref.index=NR_NO)) or
((ref.base=NR_NO) and (ref.index=NR_HL))) and
(ref.offset=0) and (ref.scalefactor<=1) and
(ref.symbol=nil) and (ref.relsymbol=nil);
end;
function is_ref_ix(const ref: treference): Boolean;
begin
result:=(((ref.base=NR_IX) and (ref.index=NR_NO)) or
((ref.base=NR_NO) and (ref.index=NR_IX))) and
(ref.offset=0) and (ref.scalefactor<=1) and
(ref.symbol=nil) and (ref.relsymbol=nil);
end;
function is_ref_iy(const ref: treference): Boolean;
begin
result:=(((ref.base=NR_IY) and (ref.index=NR_NO)) or
((ref.base=NR_NO) and (ref.index=NR_IY))) and
(ref.offset=0) and (ref.scalefactor<=1) and
(ref.symbol=nil) and (ref.relsymbol=nil);
end;
function is_ref_ix_d(const ref: treference): Boolean;
begin
result:=(((ref.base=NR_IX) and (ref.index=NR_NO)) or
((ref.base=NR_NO) and (ref.index=NR_IX))) and
(ref.offset>=-128) and (ref.offset<=127) and (ref.scalefactor<=1) and
(ref.symbol=nil) and (ref.relsymbol=nil);
end;
function is_ref_iy_d(const ref: treference): Boolean;
begin
result:=(((ref.base=NR_IY) and (ref.index=NR_NO)) or
((ref.base=NR_NO) and (ref.index=NR_IY))) and
(ref.offset>=-128) and (ref.offset<=127) and (ref.scalefactor<=1) and
(ref.symbol=nil) and (ref.relsymbol=nil);
end;
procedure InitAsm;
begin
end;