Browse Source

Fix compilation of RTL classes unit for msdos OS target

git-svn-id: trunk@36629 -
pierre 8 years ago
parent
commit
4882b802ae
1 changed files with 7 additions and 0 deletions
  1. 7 0
      rtl/objpas/classes/parser.inc

+ 7 - 0
rtl/objpas/classes/parser.inc

@@ -16,7 +16,14 @@
 {****************************************************************************}
 {****************************************************************************}
 
 
 const
 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;
   ParseBufSize     = 4096;
+{$endif not CPU16}
   LastSpecialToken = 5;
   LastSpecialToken = 5;
 
 
   TokNames : array[0..LastSpecialToken] of string =
   TokNames : array[0..LastSpecialToken] of string =