paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 16:30:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ DEBUG_REGISTERLIFE define

Browse Source 
git-svn-id: trunk@22396 -
This commit is contained in:
florian 2012-09-15 17:20:57 +00:00
parent f75e39e660
commit 95830d5a4a
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/rgobj.pas
View File

@ -1606,9 +1606,9 @@ unit rgobj;
procedure trgobj.generate_interference_graph(list:TAsmList;headertai:tai);
var
p : tai;
{$ifdef EXTDEBUG}
{$if defined(EXTDEBUG) or defined(DEBUG_REGISTERLIFE)}
i : integer;
{$endif EXTDEBUG}
{$endif defined(EXTDEBUG) or defined(DEBUG_REGISTERLIFE)}
supreg : tsuperregister;
begin
{ All allocations are available. Now we can generate the
@ -1630,19 +1630,23 @@ unit rgobj;
ra_alloc :
begin
live_registers.add(supreg);
{$ifdef DEBUG_REGISTERLIFE}
write(live_registers.length,' ');
for i:=0 to live_registers.length-1 do
write(std_regname(newreg(R_INTREGISTER,live_registers.buf^[i],defaultsub)),' ');
writeln;
{$endif DEBUG_REGISTERLIFE}
add_edges_used(supreg);
end;
ra_dealloc :
begin
live_registers.delete(supreg);
{$ifdef DEBUG_REGISTERLIFE}
write(live_registers.length,' ');
for i:=0 to live_registers.length-1 do
write(std_regname(newreg(R_INTREGISTER,live_registers.buf^[i],defaultsub)),' ');
writeln;
{$endif DEBUG_REGISTERLIFE}
add_edges_used(supreg);
end;
end;