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

* changed backwards_was_first and extended_backwards from supregsets into

Browse Source 
tbitsets so that they can grow as necessary and so that we don't have
    to fill the entire 8KiB all the time

git-svn-id: trunk@15604 -
This commit is contained in:
Jonas Maebe 2010-07-18 22:00:55 +00:00
parent c072eb5a34
commit b475d03612
1 changed files with 19 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
compiler/rgobj.pas
View File

@ -199,7 +199,7 @@ unit rgobj;
coalesced_moves,
constrained_moves : Tlinkedlist;
extended_backwards,
backwards_was_first : tsuperregisterset;
backwards_was_first : tbitset;
{$ifdef EXTDEBUG}
procedure writegraph(loopidx:longint);
@ -372,9 +372,6 @@ unit rgobj;
if high(Ausable)=-1 then
internalerror(200210181);
live_range_direction:=rad_forward;
// initialised by newinstance
// supregset_reset(extended_backwards,false,high(tsuperregister));
// supregset_reset(backwards_was_first,false,high(tsuperregister));
first_imaginary:=Afirst_imaginary;
maxreg:=Afirst_imaginary;
regtype:=Aregtype;
@ -420,6 +417,8 @@ unit rgobj;
live_registers.done;
worklist_moves.free;
dispose_reginfo;
extended_backwards.free;
backwards_was_first.free;
end;
procedure Trgobj.dispose_reginfo;
@ -689,11 +688,19 @@ unit rgobj;
begin
if (dir in [rad_backwards,rad_backwards_reinit]) then
begin
if (dir=rad_backwards_reinit) then
supregset_reset(extended_backwards,false,high(tsuperregister));
if not assigned(extended_backwards) then
begin
{ create expects a "size", not a "max bit" parameter -> +1 }
backwards_was_first:=tbitset.create(maxreg+1);
extended_backwards:=tbitset.create(maxreg+1);
end
else
begin
if (dir=rad_backwards_reinit) then
extended_backwards.clear;
backwards_was_first.clear;
end;
int_live_range_direction:=rad_backwards;
{ new registers may be allocated }
supregset_reset(backwards_was_first,false,high(tsuperregister));
end
else
int_live_range_direction:=rad_forward;
@ -723,19 +730,19 @@ unit rgobj;
end
else
begin
if not supregset_in(extended_backwards,supreg) then
if not extended_backwards.isset(supreg) then
begin
supregset_include(extended_backwards,supreg);
extended_backwards.include(supreg);
live_start := instr;
if not assigned(live_end) then
begin
supregset_include(backwards_was_first,supreg);
backwards_was_first.include(supreg);
live_end := instr;
end;
end
else
begin
if supregset_in(backwards_was_first,supreg) then
if backwards_was_first.isset(supreg) then
live_end := instr;
end
end