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

+ use is_ref_in_opertypes in cgcpu

Browse Source 
git-svn-id: branches/z80@44765 -
This commit is contained in:
nickysn 2020-04-18 00:30:09 +00:00
parent c9ac7afba7
commit 0245075c05
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/z80/cgcpu.pas
View File

@ -1147,7 +1147,7 @@ unit cgcpu;
href.base:=href.index;
href.index:=NR_NO;
end;
if is_ref_ix_d(href) or is_ref_iy_d(href) or
if is_ref_in_opertypes(href,[OT_REF_IX_d,OT_REF_IY_d]) or
(is_ref_hl(href) and (size in [OS_8,OS_S8])) then
begin
for i:=tcgsize2size[size] downto 1 do
@ -1883,8 +1883,8 @@ unit cgcpu;
srcref,dstref : treference;
begin
if (len=1) and
(is_ref_ix_d(source) or is_ref_iy_d(source) or is_ref_hl(source)) and
(is_ref_ix_d(dest) or is_ref_iy_d(dest) or is_ref_hl(dest)) then
is_ref_in_opertypes(source,[OT_REF_IX_d,OT_REF_IY_d,OT_REF_HL]) and
is_ref_in_opertypes(dest,[OT_REF_IX_d,OT_REF_IY_d,OT_REF_HL]) then
begin
tmpreg:=getintregister(list,OS_8);
list.concat(taicpu.op_reg_ref(A_LD,tmpreg,source));