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

* Improved r45832.

Browse Source 
git-svn-id: trunk@45833 -
This commit is contained in:
yury 2020-07-23 12:52:17 +00:00
parent 80facfa0bf
commit 15f411a332
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/rgobj.pas
View File

@ -710,7 +710,6 @@ unit rgobj;
var f:text;
i,j:cardinal;
sr:TSubRegister;
begin
assign(f,current_procinfo.procdef.mangledname+'_igraph'+tostr(loopidx));
rewrite(f);
@ -726,15 +725,12 @@ unit rgobj;
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,' ');
if findreg_by_number(newreg(regtype,TSuperRegister(i),sr))<>0 then
write(f,std_regname(newreg(regtype,TSuperRegister(i),sr))+':'+hexstr(i,2):7)
if (i<first_imaginary) and
(findreg_by_number(newreg(regtype,TSuperRegister(i),defaultsub))<>0) then
write(f,std_regname(newreg(regtype,TSuperRegister(i),defaultsub))+':'+hexstr(i,2):7)
else
write(f,' ',hexstr(i,2):4);
for j:=0 to maxreg-1 do