paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 13:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed indentations of the interference graph.

Browse Source 
* Added register names to the interference graph.

git-svn-id: trunk@45832 -
This commit is contained in:
yury 2020-07-23 12:45:40 +00:00
parent d7122c6338
commit 80facfa0bf
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/rgobj.pas
View File

@ -710,25 +710,33 @@ unit rgobj;
var f:text;
i,j:cardinal;
sr:TSubRegister;
begin
assign(f,current_procinfo.procdef.mangledname+'_igraph'+tostr(loopidx));
rewrite(f);
writeln(f,'Interference graph of ',current_procinfo.procdef.fullprocname(true));
writeln(f,'First imaginary register is ',first_imaginary,' ($',hexstr(first_imaginary,2),')');
writeln(f,'Register type: ',regtype,', First imaginary register is ',first_imaginary,' ($',hexstr(first_imaginary,2),')');
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,'Weight Degree ');
write(f,'Weight Degree Uses IntfCnt ');
for i:=0 to maxreg div 16 do
write(f,'0123456789ABCDEF');
writeln(f);
if regtype=R_INTREGISTER then
sr:=R_SUBWHOLE
else
sr:=R_SUBNONE;
for i:=0 to maxreg-1 do
begin
write(f,reginfo[i].weight:5,' ',reginfo[i].degree:5,' ',reginfo[i].count_uses:5,' ',reginfo[i].total_interferences:5,' ',hexstr(i,2):4);
write(f,reginfo[i].weight:5,' ',reginfo[i].degree:5,' ',reginfo[i].count_uses:5,' ',reginfo[i].total_interferences:5,' ');
if findreg_by_number(newreg(regtype,TSuperRegister(i),sr))<>0 then
write(f,std_regname(newreg(regtype,TSuperRegister(i),sr))+':'+hexstr(i,2):7)
else
write(f,' ',hexstr(i,2):4);
for j:=0 to maxreg-1 do
if ibitmap[i,j] then
write(f,'*')