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

* Add check <= 255 when adding to adj_colours

Browse Source
This commit is contained in:
daniel 2004-07-09 21:38:30 +00:00
parent af1f477467
commit c4e909e316
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/rgobj.pas
View File

@ -1278,7 +1278,7 @@ unit rgobj;
for j:=0 to adj^.length-1 do
begin
a:=get_alias(adj^.buf^[j]);
if supregset_in(colourednodes,a) then
if supregset_in(colourednodes,a) and (reginfo[a].colour<=255) then
include(adj_colours,reginfo[a].colour);
end;
include(adj_colours,RS_STACK_POINTER_REG);
@ -1986,7 +1986,10 @@ unit rgobj;
end.
{
$Log$
Revision 1.132 2004-07-08 09:57:55 daniel
Revision 1.133 2004-07-09 21:38:30 daniel
* Add check <= 255 when adding to adj_colours
Revision 1.132 2004/07/08 09:57:55 daniel
* Use a normal pascal set in assign_colours, since it only will contain
real registers