浏览代码

* Add check <= 255 when adding to adj_colours

daniel 21 年之前
父节点
当前提交
c4e909e316
共有 1 个文件被更改,包括 5 次插入2 次删除
  1. 5 2
      compiler/rgobj.pas

+ 5 - 2
compiler/rgobj.pas

@@ -1278,7 +1278,7 @@ unit rgobj;
             for j:=0 to adj^.length-1 do
             for j:=0 to adj^.length-1 do
               begin
               begin
                 a:=get_alias(adj^.buf^[j]);
                 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);
                   include(adj_colours,reginfo[a].colour);
               end;
               end;
           include(adj_colours,RS_STACK_POINTER_REG);
           include(adj_colours,RS_STACK_POINTER_REG);
@@ -1986,7 +1986,10 @@ unit rgobj;
 end.
 end.
 {
 {
   $Log$
   $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
     * Use a normal pascal set in assign_colours, since it only will contain
       real registers
       real registers