paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 14:29:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* limit the stack size set by the -Cs option to 65520 bytes on i8086 and other

Browse Source 
CPUs with a 16-bit address space

git-svn-id: trunk@27960 -
This commit is contained in:
nickysn 2014-06-14 22:48:09 +00:00
parent 22a7dfa231
commit d7f9265eba
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/options.pas
View File

@ -1005,7 +1005,13 @@ begin
's' :
begin
val(copy(more,j+1,length(more)-j),stacksize,code);
if (code<>0) or (stacksize>=67107840) or (stacksize<1024) then
if (code<>0)
{$ifdef cpu16bitaddr}
or (stacksize>=65521)
{$else cpu16bitaddr}
or (stacksize>=67107840)
{$endif cpu16bitaddr}
or (stacksize<1024) then
IllegalPara(opt);
break;
end;