paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 11:50:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* write more information into the interference graph

Browse Source 
git-svn-id: trunk@34801 -
This commit is contained in:
florian 2016-11-05 23:06:04 +00:00
parent ef81009362
commit 4242949453
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/rgobj.pas
View File

@ -23,6 +23,10 @@
{ $define DEBUG_REGALLOC}
{$ifdef DEBUG_REGALLOC}
{$define EXTDEBUG}
{$endif DEBUG_REGALLOC}
{ Allow duplicate allocations, can be used to get the .s file written }
{ $define ALLOWDUPREG}
@ -681,19 +685,20 @@ unit rgobj;
assign(f,'igraph'+tostr(loopidx));
rewrite(f);
writeln(f,'Interference graph');
writeln(f,'First imaginary register is ',first_imaginary);
writeln(f);
write(f,' ');
write(f,' ');
for i:=0 to maxreg div 16 do
for j:=0 to 15 do
write(f,hexstr(i,1));
writeln(f);
write(f,' ');
write(f,'Weight Degree ');
for i:=0 to maxreg div 16 do
write(f,'0123456789ABCDEF');
writeln(f);
for i:=0 to maxreg-1 do
begin
write(f,hexstr(i,2):4);
write(f,reginfo[i].weight:5,' ',reginfo[i].degree:5,' ',hexstr(i,2):4);
for j:=0 to maxreg-1 do
if ibitmap[i,j] then
write(f,'*')