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

* commented out a number of superfluous zero-initialisations of (large)

Browse Source 
class instance fields
  * changed a number of for-loop iteration variables from tsuperregister
    (= word) into cardinal

git-svn-id: trunk@15519 -
This commit is contained in:
Jonas Maebe 2010-07-03 13:09:58 +00:00
parent 0cef599317
commit fb65172a5a
1 changed files with 21 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
compiler/rgobj.pas
View File

@ -366,20 +366,22 @@ unit rgobj;
Afirst_imaginary:Tsuperregister;
Apreserved_by_proc:Tcpuregisterset);
var
i : Tsuperregister;
i : cardinal;
begin
{ empty super register sets can cause very strange problems }
if high(Ausable)=-1 then
internalerror(200210181);
live_range_direction:=rad_forward;
supregset_reset(extended_backwards,false,high(tsuperregister));
supregset_reset(backwards_was_first,false,high(tsuperregister));
// reset when the direction is set to rad_backwards/rad_backwards_reinit
// supregset_reset(backwards_was_first,false,high(tsuperregister));
first_imaginary:=Afirst_imaginary;
maxreg:=Afirst_imaginary;
regtype:=Aregtype;
defaultsub:=Adefaultsub;
preserved_by_proc:=Apreserved_by_proc;
used_in_proc:=[];
// default value set by constructor
// used_in_proc:=[];
live_registers.init;
{ Get reginfo for CPU registers }
maxreginfo:=first_imaginary;
@ -392,7 +394,8 @@ unit rgobj;
reginfo[i].alias:=RS_INVALID;
end;
{ Usable registers }
fillchar(usable_registers,sizeof(usable_registers),0);
// default value set by constructor
// fillchar(usable_registers,sizeof(usable_registers),0);
for i:=low(Ausable) to high(Ausable) do
usable_registers[i]:=Ausable[i];
usable_registers_cnt:=high(Ausable)+1;
@ -421,7 +424,7 @@ unit rgobj;
procedure Trgobj.dispose_reginfo;
var i:Tsuperregister;
var i:cardinal;
begin
if reginfo<>nil then
@ -508,7 +511,7 @@ unit rgobj;
procedure trgobj.alloccpuregisters(list:TAsmList;const r:Tcpuregisterset);
var i:Tsuperregister;
var i:cardinal;
begin
for i:=0 to first_imaginary-1 do
@ -519,7 +522,7 @@ unit rgobj;
procedure trgobj.dealloccpuregisters(list:TAsmList;const r:Tcpuregisterset);
var i:Tsuperregister;
var i:cardinal;
begin
for i:=0 to first_imaginary-1 do
@ -608,7 +611,7 @@ unit rgobj;
procedure trgobj.add_edges_used(u:Tsuperregister);
var i:word;
var i:cardinal;
begin
with live_registers do
@ -625,7 +628,7 @@ unit rgobj;
var f:text;
i,j:Tsuperregister;
i,j:cardinal;
begin
assign(f,'igraph'+tostr(loopidx));
@ -831,7 +834,7 @@ unit rgobj;
procedure trgobj.make_work_list;
var n:Tsuperregister;
var n:cardinal;
begin
{If we have 7 cpu registers, and the degree of a node is 7, we cannot
@ -890,7 +893,7 @@ unit rgobj;
var adj : Psuperregisterworklist;
n : tsuperregister;
d,i : word;
d,i : cardinal;
begin
with reginfo[m] do
@ -928,7 +931,7 @@ unit rgobj;
var adj : Psuperregisterworklist;
m,n : Tsuperregister;
i : word;
i : cardinal;
begin
{We take the element with the least interferences out of the
simplifyworklist. Since the simplifyworklist is now sorted, we
@ -986,7 +989,7 @@ unit rgobj;
end;
var adj : Psuperregisterworklist;
i : word;
i : cardinal;
n : tsuperregister;
begin
@ -1011,7 +1014,7 @@ unit rgobj;
var adj : Psuperregisterworklist;
done : Tsuperregisterset; {To prevent that we count nodes twice.}
i,k:word;
i,k:cardinal;
n : tsuperregister;
begin
@ -1157,7 +1160,7 @@ unit rgobj;
procedure trgobj.coalesce;
var m:Tmoveins;
x,y,u,v:Tsuperregister;
x,y,u,v:cardinal;
begin
m:=Tmoveins(worklist_moves.getfirst);
@ -1301,7 +1304,7 @@ unit rgobj;
{Assign_colours assigns the actual colours to the registers.}
var adj : Psuperregisterworklist;
i,j,k : word;
i,j,k : cardinal;
n,a,c : Tsuperregister;
colourednodes : Tsuperregisterset;
adj_colours:set of 0..255;
@ -1382,7 +1385,7 @@ unit rgobj;
procedure trgobj.epilogue_colouring;
var
i : Tsuperregister;
i : cardinal;
begin
worklist_moves.clear;
active_moves.destroy;
@ -1711,7 +1714,7 @@ unit rgobj;
function trgobj.spill_registers(list:TAsmList;headertai:tai):boolean;
{ Returns true if any help registers have been used }
var
i : word;
i : cardinal;
t : tsuperregister;
p,q : Tai;
regs_to_spill_set:Tsuperregisterset;