paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 08:59:26 +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}
fillchar(igraph,sizeof(igraph),0);
fillchar(degree,sizeof(degree),0);
{Precoloured nodes should have an infinite degree, which we can approach
by 255.}
fillchar(movelist,sizeof(movelist),0);
worklist_moves:=Tlinkedlist.create;
abtlist:='';
@ -971,6 +973,10 @@ unit rgobj;
fillchar(movelist,sizeof(movelist),0);
fillchar(igraph,sizeof(igraph),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;
abtlist:='';
{$endif}
@ -2361,6 +2367,10 @@ unit rgobj;
spill_registers:=false;
unusedregsint:=[0..255];
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);}
if current_procinfo.framepointer.number=NR_FRAME_POINTER_REG then
{Make sure the register allocator won't allocate registers into ebp.}
@ -2550,7 +2560,11 @@ end.
{
$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.
* cpu_registers set to 6 for i386