paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 09:59:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Handle second argument to -Ch option, -Chx,y y is max heap size

Browse Source 
git-svn-id: trunk@36260 -
This commit is contained in:
pierre 2017-05-19 21:28:24 +00:00
parent 5c18830aab
commit ae349a3ccc
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/options.pas
View File

@ -1202,7 +1202,10 @@ begin
end;
'h' :
begin
val(copy(more,j+1,length(more)-j),heapsize,code);
l:=pos(',',copy(more,j+1,length(more)-j));
if l=0 then
l:=length(more)-j+1;
val(copy(more,j+1,l-1),heapsize,code);
if (code<>0)
{$ifdef AVR}
or (heapsize<32)
@ -1210,7 +1213,18 @@ begin
or (heapsize<1024)
{$endif AVR}
then
IllegalPara(opt);
IllegalPara(opt)
else if l<=length(more)-j then
begin
val(copy(more,j+l+1,length(more)),maxheapsize,code);
if code<>0 then
IllegalPara(opt)
else if (maxheapsize<heapsize) then
begin
message(scan_w_heapmax_lessthan_heapmin);
maxheapsize:=heapsize;
end;
end;
break;
end;
'i' :