paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 08:09:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ support symbol+base/index in tcgz80.a_loadaddr_ref_reg

Browse Source 
git-svn-id: branches/z80@44683 -
This commit is contained in:
nickysn 2020-04-11 01:19:13 +00:00
parent 4e5eb7fa4e
commit 472bc6c936
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/z80/cgcpu.pas
View File

@ -1833,17 +1833,9 @@ unit cgcpu;
list.concat(taicpu.op_reg_ref(A_LD,GetNextReg(r),tmpref));
if (ref.base<>NR_NO) then
begin
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: a_loadaddr_ref_reg with symbol and ref.base')));
//list.concat(taicpu.op_reg_reg(A_ADD,r,ref.base));
//list.concat(taicpu.op_reg_reg(A_ADC,GetNextReg(r),GetNextReg(ref.base)));
end;
a_op_reg_reg(list,OP_ADD,OS_16,ref.base,r);
if (ref.index<>NR_NO) then
begin
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: a_loadaddr_ref_reg with symbol and ref.index')));
//list.concat(taicpu.op_reg_reg(A_ADD,r,ref.index));
//list.concat(taicpu.op_reg_reg(A_ADC,GetNextReg(r),GetNextReg(ref.index)));
end;
a_op_reg_reg(list,OP_ADD,OS_16,ref.index,r);
end
else
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: a_loadaddr_ref_reg')));