paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 17:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ replace 'ld orgreg,const' with 'ld spilltemp,const' in trgcpu.do_spill_replace

Browse Source 
git-svn-id: branches/z80@44536 -
This commit is contained in:
nickysn 2020-04-03 19:47:47 +00:00
parent fe3f4a7447
commit a58bab4318
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/z80/rgcpu.pas
View File

@ -183,6 +183,17 @@ unit rgcpu;
opcode:=A_LD;
result:=true;
end;
end
{ Replace 'ld orgreg,const' with 'ld spilltemp,const' }
else if (opcode=A_LD) and (ops=2) and (oper[1]^.typ=top_const) and (oper[0]^.typ=top_reg) then
begin
if (getregtype(oper[0]^.reg)=regtype) and
(get_alias(getsupreg(oper[0]^.reg))=orgreg) then
begin
instr.loadref(0,spilltemp);
opcode:=A_LD;
result:=true;
end;
end;
end;
end;