瀏覽代碼

* applied Peter's patch. Now cycles.

marco 22 年之前
父節點
當前提交
f34e9e5adf
共有 1 個文件被更改,包括 6 次插入3 次删除
  1. 6 3
      compiler/i386/n386set.pas

+ 6 - 3
compiler/i386/n386set.pas

@@ -111,7 +111,7 @@ implementation
              compares,maxcompares:word;
              compares,maxcompares:word;
              i:byte;
              i:byte;
            begin
            begin
-             if byteset(Aset^)=[] then
+             if tnormalset(Aset^)=[] then
                 {The expression...
                 {The expression...
                     if expr in []
                     if expr in []
                  ...is allways false. It should be optimized away in the
                  ...is allways false. It should be optimized away in the
@@ -134,7 +134,7 @@ implementation
              if is_small then
              if is_small then
               maxcompares:=3;
               maxcompares:=3;
              for i:=0 to 255 do
              for i:=0 to 255 do
-              if i in byteset(Aset^) then
+              if i in tnormalset(Aset^) then
                begin
                begin
                  if (numparts=0) or (i<>setparts[numparts].stop+1) then
                  if (numparts=0) or (i<>setparts[numparts].stop+1) then
                   begin
                   begin
@@ -689,7 +689,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.63  2003-09-03 15:55:01  peter
+  Revision 1.64  2003-09-05 11:21:39  marco
+   * applied Peter's patch. Now cycles.
+
+  Revision 1.63  2003/09/03 15:55:01  peter
     * NEWRA branch merged
     * NEWRA branch merged
 
 
   Revision 1.62.2.1  2003/08/29 17:29:00  peter
   Revision 1.62.2.1  2003/08/29 17:29:00  peter