Bläddra i källkod

* 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 år sedan
förälder
incheckning
0f5b13d45b
1 ändrade filer med 1 tillägg och 1 borttagningar
  1. 1 1
      compiler/scandir.pas

+ 1 - 1
compiler/scandir.pas

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