paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 10:49:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* spill coalesce uses get_alias

Browse Source 
git-svn-id: trunk@36359 -
This commit is contained in:
florian 2017-05-28 08:59:49 +00:00
parent 6a22c5afae
commit 344970879e
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/rgobj.pas
View File

@ -22,15 +22,18 @@
{$i fpcdefs.inc}
{ $define DEBUG_REGALLOC}
{ $define DEBUG_SPILLCOALESCE}
{$define DEBUG_SPILLCOALESCE}
{ $define DEBUG_REGISTERLIFE}
{ Allow duplicate allocations, can be used to get the .s file written }
{ $define ALLOWDUPREG}
{$ifdef DEBUG_REGALLOC}
{$define EXTDEBUG}
{$endif DEBUG_REGALLOC}
{ Allow duplicate allocations, can be used to get the .s file written }
{ $define ALLOWDUPREG}
unit rgobj;
interface
@ -2105,10 +2108,10 @@ unit rgobj;
x:=Tmoveins(reginfo[t].movelist^.data[j]).x;
y:=Tmoveins(reginfo[t].movelist^.data[j]).y;
if (x=t) and
(spillinfo[y].spilled) and
not(spillinfo[y].interferences[0,t]) then
(spillinfo[get_alias(y)].spilled) and
not(spillinfo[get_alias(y)].interferences[0,t]) then
begin
spill_temps^[t]:=spillinfo[y].spilllocation;
spill_temps^[t]:=spillinfo[get_alias(y)].spilllocation;
{$ifdef DEBUG_SPILLCOALESCE}
writeln('trgobj.spill_registers: Spill coalesce ',t,' to ',y);
{$endif DEBUG_SPILLCOALESCE}
@ -2116,13 +2119,13 @@ unit rgobj;
break;
end
else if (y=t) and
(spillinfo[x].spilled) and
not(spillinfo[x].interferences[0,t]) then
(spillinfo[get_alias(x)].spilled) and
not(spillinfo[get_alias(x)].interferences[0,t]) then
begin
{$ifdef DEBUG_SPILLCOALESCE}
writeln('trgobj.spill_registers: Spill coalesce ',t,' to ',x);
{$endif DEBUG_SPILLCOALESCE}
spill_temps^[t]:=spillinfo[x].spilllocation;
spill_temps^[t]:=spillinfo[get_alias(x)].spilllocation;
getnewspillloc:=false;
break;
end;