|
|
@@ -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
|
yury