paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 09:26:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* allow setting a heap size of exactly 1024 bytes with the $M directive, since

Browse Source 
that's a valid heap size value for the -Ch command line option

git-svn-id: trunk@28026 -
This commit is contained in:
nickysn 2014-06-21 21:51:27 +00:00
parent 519094055c
commit 0f5b13d45b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/scandir.pas
View File

@ -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;