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

+ implemented g_concatcopy for 1-byte copies from (IX+d)/(IY+d)/(HL) to (IX+d)/(IY+d)/(HL)

Browse Source 
git-svn-id: branches/z80@44673 -
This commit is contained in:
nickysn 2020-04-09 23:37:27 +00:00
parent 4911a9c1df
commit e8cecafffa
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/z80/cgcpu.pas
View File

@ -1914,6 +1914,18 @@ unit cgcpu;
i : longint;
SrcQuickRef, DestQuickRef : Boolean;
begin
if (len=1) and (not assigned(source.symbol) and
((source.base=NR_IX) or (source.base=NR_IY) or
((source.base=NR_HL) and (source.offset=0)))) and
(not assigned(dest.symbol) and
((dest.base=NR_IX) or (dest.base=NR_IY) or
((dest.base=NR_HL) and (dest.offset=0)))) then
begin
tmpreg:=getintregister(list,OS_8);
list.concat(taicpu.op_reg_ref(A_LD,tmpreg,source));
list.concat(taicpu.op_ref_reg(A_LD,dest,tmpreg));
end
else
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: g_concatcopy')));
//if len>16 then
// begin