paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 21:19:31 +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
begin
getcpuregister(list,NR_A);
for i:=tcgsize2size[fromsize] downto 1 do
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
begin
inc(href.offset);
reg:=GetNextReg(reg);
end;
end;
ungetcpuregister(list,NR_A);
end
else
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: a_load_reg_ref')));