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

* generate better code in tcgz80.a_loadaddr_ref_reg

Browse Source 
git-svn-id: branches/z80@45125 -
This commit is contained in:
nickysn 2020-04-26 20:58:52 +00:00
parent 5be4ce281f
commit 3338603bb8
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/z80/cgcpu.pas
View File

@ -2287,14 +2287,16 @@ unit cgcpu;
if (ref.index<>NR_NO) then
a_op_reg_reg(list,OP_ADD,OS_16,ref.index,r);
end
else
else if ref.base<>NR_NO then
begin
a_load_const_reg(list,OS_16,ref.offset,r);
if (ref.base<>NR_NO) then
a_op_reg_reg(list,OP_ADD,OS_16,ref.base,r);
a_op_const_reg_reg(list,OP_ADD,OS_16,ref.offset,ref.base,r);
if (ref.index<>NR_NO) then
a_op_reg_reg(list,OP_ADD,OS_16,ref.index,r);
end;
end
else if ref.index<>NR_NO then
a_op_const_reg_reg(list,OP_ADD,OS_16,ref.offset,ref.index,r)
else
a_load_const_reg(list,OS_16,ref.offset,r);
end;