Преглед изворни кода

* 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 година
родитељ
комит
0f5b13d45b
1 измењених фајлова са 1 додато и 1 уклоњено
  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;