diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc index bd28687ae3..eb6144fb1e 100644 --- a/rtl/inc/systemh.inc +++ b/rtl/inc/systemh.inc @@ -762,7 +762,7 @@ Var { Stack checking } StackBottom : Pointer; StackLength : SizeUInt; - + Var WriteErrorsToStdErr : Boolean = True; @@ -1595,7 +1595,20 @@ const { Generic threadmanager } {$ifdef FPC_HAS_FEATURE_THREADING} {$i threadh.inc} -{$endif FPC_HAS_FEATURE_THREADING} +{$else not FPC_HAS_FEATURE_THREADING} +{ Bare minimum needed to get RTL to compile + without threading support } +const +{$ifndef FPC_USE_SMALL_DEFAULTSTACKSIZE} + { includes 16384 bytes margin for stackchecking } + DefaultStackSize = 4*1024*1024; +{$else i.e. FPC_USE_SMALL_DEFAULTSTACKSIZE} + { Special value of Default stack size } + DefaultStackSize = 16 * 1024; +{$endif not FPC_USE_SMALL_DEFAULTSTACKSIZE} +type + PRTLEvent = type pointer; +{$endif not FPC_HAS_FEATURE_THREADING} {***************************************************************************** Dynamic library support