paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 08:48:46 +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

5
compiler/rgobj.pas
View File

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