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

* the register allocator always knows the exact number of the first imaginary

Browse Source 
supreg of the current register type, so use that rather than the maximum of
    all possible register types

git-svn-id: trunk@21623 -
This commit is contained in:
Jonas Maebe 2012-06-15 18:24:30 +00:00
parent 708a2532fc
commit 6f336a5d13
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/rgobj.pas
View File

@ -1371,7 +1371,7 @@ unit rgobj;
n:=coalescednodes.buf^[i-1];
k:=get_alias(n);
reginfo[n].colour:=reginfo[k].colour;
if reginfo[k].colour<maxcpuregister then
if reginfo[k].colour<first_imaginary then
include(used_in_proc,reginfo[k].colour);
end;
end;
@ -1567,6 +1567,7 @@ unit rgobj;
p:=headertai;
while assigned(p) do
begin
prefetch(pointer(p.next)^);
if p.typ=ait_regalloc then
with Tai_regalloc(p) do
begin
@ -1632,6 +1633,7 @@ unit rgobj;
p:=Tai(list.first);
while assigned(p) do
begin
prefetch(pointer(p.next)^);
case p.typ of
ait_regalloc:
with Tai_regalloc(p) do