paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 21:49:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Precoloured nodes now have an infinite degree approached with 255,

Browse Source 
like they should.
This commit is contained in:
daniel 2003-08-17 14:32:48 +00:00
parent 45f9851e87
commit 7d3bfaaed4
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/rgobj.pas
View File

@ -551,6 +551,8 @@ unit rgobj;
{$ifdef newra} {$ifdef newra}
fillchar(igraph,sizeof(igraph),0); fillchar(igraph,sizeof(igraph),0);
fillchar(degree,sizeof(degree),0); fillchar(degree,sizeof(degree),0);
{Precoloured nodes should have an infinite degree, which we can approach
by 255.}
fillchar(movelist,sizeof(movelist),0); fillchar(movelist,sizeof(movelist),0);
worklist_moves:=Tlinkedlist.create; worklist_moves:=Tlinkedlist.create;
abtlist:=''; abtlist:='';
@ -971,6 +973,10 @@ unit rgobj;
fillchar(movelist,sizeof(movelist),0); fillchar(movelist,sizeof(movelist),0);
fillchar(igraph,sizeof(igraph),0); fillchar(igraph,sizeof(igraph),0);
fillchar(degree,sizeof(degree),0); fillchar(degree,sizeof(degree),0);
{Precoloured nodes should have an infinite degree, which we can approach
by 255.}
for i:=first_supreg to last_supreg do
degree[i]:=255;
worklist_moves.clear; worklist_moves.clear;
abtlist:=''; abtlist:='';
{$endif} {$endif}
@ -2361,6 +2367,10 @@ unit rgobj;
spill_registers:=false; spill_registers:=false;
unusedregsint:=[0..255]; unusedregsint:=[0..255];
fillchar(degree,sizeof(degree),0); fillchar(degree,sizeof(degree),0);
{Precoloured nodes should have an infinite degree, which we can approach
by 255.}
for i:=first_supreg to last_supreg do
degree[i]:=255;
{ exclude(unusedregsint,RS_STACK_POINTER_REG);} { exclude(unusedregsint,RS_STACK_POINTER_REG);}
if current_procinfo.framepointer.number=NR_FRAME_POINTER_REG then if current_procinfo.framepointer.number=NR_FRAME_POINTER_REG then
{Make sure the register allocator won't allocate registers into ebp.} {Make sure the register allocator won't allocate registers into ebp.}
@ -2550,7 +2560,11 @@ end.
{ {
$Log$ $Log$
Revision 1.64 2003-08-17 08:48:02 daniel Revision 1.65 2003-08-17 14:32:48 daniel
* Precoloured nodes now have an infinite degree approached with 255,
like they should.
Revision 1.64 2003/08/17 08:48:02 daniel
* Another register allocator bug fixed. * Another register allocator bug fixed.
* cpu_registers set to 6 for i386 * cpu_registers set to 6 for i386