paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-01 17:44:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ implemented sign extension in tcgz80.a_load_reg_reg

Browse Source 
git-svn-id: branches/z80@44650 -
This commit is contained in:
nickysn 2020-04-08 23:50:14 +00:00
parent a8e047fcbb
commit df59c070a1
1 changed files with 25 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/z80/cgcpu.pas
View File

@ -1408,7 +1408,31 @@ unit cgcpu;
end
end
else
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: a_load_reg_reg')));
begin
if reg1<>reg2 then
for i:=1 to tcgsize2size[fromsize]-1 do
begin
emit_mov(list,reg2,reg1);
reg1:=GetNextReg(reg1);
reg2:=GetNextReg(reg2);
end
else
for i:=1 to tcgsize2size[fromsize]-1 do
reg2:=GetNextReg(reg2);
emit_mov(list,reg2,reg1);
getcpuregister(list,NR_A);
emit_mov(list,NR_A,reg2);
reg2:=GetNextReg(reg2);
list.concat(taicpu.op_none(A_RLA));
list.concat(taicpu.op_reg_reg(A_SBC,NR_A,NR_A));
for i:=tcgsize2size[fromsize]+1 to tcgsize2size[tosize] do
begin
emit_mov(list,reg2,NR_A);
if i<>tcgsize2size[tosize] then
reg2:=GetNextReg(reg2);
end;
ungetcpuregister(list,NR_A);
end;
end;