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

Fix compilation of RTL classes unit for msdos OS target

Browse Source 
git-svn-id: trunk@36629 -
This commit is contained in:
pierre 2017-07-03 16:21:15 +00:00
parent f5b8825662
commit 4882b802ae
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/classes/parser.inc
View File

@ -16,7 +16,14 @@
{****************************************************************************}
const
{$ifdef CPU16}
{ Avoid too big local stack use for
MSDOS tiny memory model that uses less than 4096
bytes for total stack by default. }
ParseBufSize = 512;
{$else not CPU16}
ParseBufSize = 4096;
{$endif not CPU16}
LastSpecialToken = 5;
TokNames : array[0..LastSpecialToken] of string =