paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-07 10:38:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Remove register allocations of coalesced registers if the alias

Browse Source 
register is spilled.
This commit is contained in:
Yuriy Sydorov 2021-09-06 18:37:45 +03:00
parent d20f18634f
commit b96057adeb
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/rgobj.pas
View File

@ -2467,8 +2467,9 @@ unit rgobj;
begin begin
if (getregtype(reg)=regtype) then if (getregtype(reg)=regtype) then
begin begin
{A register allocation of a spilled register can be removed.} {A register allocation of the spilled register (and all coalesced registers)
supreg:=getsupreg(reg); must be removed.}
supreg:=get_alias(getsupreg(reg));
if supregset_in(regs_to_spill_set,supreg) then if supregset_in(regs_to_spill_set,supreg) then
begin begin
{ Remove loading of the register from its initial memory location { Remove loading of the register from its initial memory location