paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 18:25:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use register NR_A in a_load_reg_ref for z80

Browse Source 
git-svn-id: branches/z80@44501 -
This commit is contained in:
nickysn 2020-04-01 22:40:02 +00:00
parent 54097433da
commit 662ca13f51
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/z80/cgcpu.pas
View File

@ -962,15 +962,18 @@ unit cgcpu;
if fromsize=tosize then if fromsize=tosize then
begin begin
getcpuregister(list,NR_A);
for i:=tcgsize2size[fromsize] downto 1 do for i:=tcgsize2size[fromsize] downto 1 do
begin begin
list.concat(taicpu.op_ref_reg(A_LD,href,reg)); a_load_reg_reg(list,OS_8,OS_8,reg,NR_A);
list.concat(taicpu.op_ref_reg(A_LD,href,NR_A));
if i<>1 then if i<>1 then
begin begin
inc(href.offset); inc(href.offset);
reg:=GetNextReg(reg); reg:=GetNextReg(reg);
end; end;
end; end;
ungetcpuregister(list,NR_A);
end end
else else
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: a_load_reg_ref'))); list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: a_load_reg_ref')));