paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-31 17:50:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Another register allocator bug fixed.

Browse Source 
* cpu_registers set to 6 for i386
This commit is contained in:
daniel 2003-08-17 08:48:02 +00:00
parent c461204cdc
commit 45f9851e87
2 changed files with 22 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/i386/rgcpu.pas
View File

@ -501,12 +501,16 @@ unit rgcpu;
initialization
rg := trgcpu.create(7); {We use 7 int registers on i386.}
rg := trgcpu.create(6); {We use 6 int registers on i386.}
end.
{
$Log$
Revision 1.29 2003-06-17 16:51:30 peter
Revision 1.30 2003-08-17 08:48:02 daniel
* Another register allocator bug fixed.
* cpu_registers set to 6 for i386
Revision 1.29 2003/06/17 16:51:30 peter
* cycle fixes
Revision 1.28 2003/06/17 16:34:44 jonas

20
compiler/rgobj.pas
View File

@ -1742,12 +1742,17 @@ unit rgobj;
procedure Trgobj.add_worklist(u:Tsuperregister);
var p:byte;
begin
if not(u in [first_supreg..last_supreg]) and not move_related(u) and
(degree[u]<cpu_registers) then
begin
p:=pos(char(u),freezeworklist);
if p=0 then
internalerror(200308161); {must be found}
if length(freezeworklist)>1 then
freezeworklist[pos(char(u),freezeworklist)]:=freezeworklist[length(freezeworklist)];
freezeworklist[p]:=freezeworklist[length(freezeworklist)];
dec(freezeworklist[0]);
{ delete(freezeworklist,pos(char(u),freezeworklist),1);}
simplifyworklist:=simplifyworklist+char(u);
@ -1828,6 +1833,7 @@ unit rgobj;
i,p:byte;
n,o:cardinal;
t:char;
decrement:boolean;
begin
p:=pos(char(v),freezeworklist);
@ -1861,11 +1867,13 @@ unit rgobj;
t:=adj^[i];
if (pos(t,selectstack) or pos(t,coalescednodes))=0 then
begin
decrement:=(Tsuperregister(t)<>u) and not(u in igraph.bitmap[Tsuperregister(t)]);
add_edge(Tsuperregister(t),u);
{Do not call decrement_degree because it might move nodes between
lists while the degree does not change (add_edge will increase it).
Instead, we will decrement manually.}
if degree[Tsuperregister(t)]>0 then
Instead, we will decrement manually. (Only if the degree has been
increased.)}
if decrement and (degree[Tsuperregister(t)]>0) then
dec(degree[Tsuperregister(t)]);
end;
end;
@ -2542,7 +2550,11 @@ end.
{
$Log$
Revision 1.63 2003-08-09 18:56:54 daniel
Revision 1.64 2003-08-17 08:48:02 daniel
* Another register allocator bug fixed.
* cpu_registers set to 6 for i386
Revision 1.63 2003/08/09 18:56:54 daniel
* cs_regalloc renamed to cs_regvars to avoid confusion with register
allocator
* Some preventive changes to i386 spillinh code