Răsfoiți Sursa

* allow setting a heap size of exactly 1024 bytes with the $M directive, since
that's a valid heap size value for the -Ch command line option

git-svn-id: trunk@28026 -

nickysn 11 ani în urmă
părinte
comite
0f5b13d45b
1 a modificat fișierele cu 1 adăugiri și 1 ștergeri
  1. 1 1
      compiler/scandir.pas

+ 1 - 1
compiler/scandir.pas

@@ -722,7 +722,7 @@ unit scandir;
             current_scanner.readchar;
             current_scanner.skipspace;
             l:=current_scanner.readval;
-            if l>1024 then
+            if l>=1024 then
               heapsize:=l;
           end;
       end;