ソースを参照

* ignore maxheapsize

peter 26 年 前
コミット
1d467cd8a8
1 ファイル変更6 行追加5 行削除
  1. 6 5
      compiler/scandir.inc

+ 6 - 5
compiler/scandir.inc

@@ -918,11 +918,9 @@ const
            current_scanner^.readchar;
            current_scanner^.skipspace;
            l:=current_scanner^.readval;
-           if l>1024 then
-            maxheapsize:=l;
+           { Ignore this value, because the limit is set by the OS
+             info and shouldn't be changed by the user (PFV) }
          end;
-        if heapsize>maxheapsize then
-          message(scan_w_illegal_switch);
       end;
 
 
@@ -1087,7 +1085,10 @@ const
 
 {
   $Log$
-  Revision 1.53  1999-06-02 22:44:18  pierre
+  Revision 1.53.2.1  1999-07-16 09:53:06  peter
+    * ignore maxheapsize
+
+  Revision 1.53  1999/06/02 22:44:18  pierre
    * previous wrong log corrected
 
   Revision 1.52  1999/06/02 22:25:48  pierre