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

* replace 'inc/dec orgreg' with 'inc/dec spilltemp' in trgcpu.do_spill_replace

Browse Source 
git-svn-id: branches/z80@44552 -
This commit is contained in:
nickysn 2020-04-03 22:19:40 +00:00
parent a6cfaa996a
commit e43834c5d0
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

@ -216,6 +216,17 @@ unit rgcpu;
instr.loadref(1,spilltemp);
result:=true;
end;
end
{ Replace 'inc orgreg' with 'inc spilltemp'
and 'dec orgreg' with 'dec spilltemp' }
else if (opcode in [A_INC,A_DEC]) and (ops=1) 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);
result:=true;
end;
end;
end;
end;