瀏覽代碼

Add minimum type/const for RTL compilation with threading support disabled

git-svn-id: trunk@36106 -
pierre 8 年之前
父節點
當前提交
651f8b17c1
共有 1 個文件被更改,包括 15 次插入2 次删除
  1. 15 2
      rtl/inc/systemh.inc

+ 15 - 2
rtl/inc/systemh.inc

@@ -762,7 +762,7 @@ Var
   { Stack checking }
   { Stack checking }
   StackBottom : Pointer;
   StackBottom : Pointer;
   StackLength : SizeUInt;
   StackLength : SizeUInt;
-  
+
 Var
 Var
   WriteErrorsToStdErr : Boolean = True;
   WriteErrorsToStdErr : Boolean = True;
 
 
@@ -1595,7 +1595,20 @@ const
 { Generic threadmanager }
 { Generic threadmanager }
 {$ifdef FPC_HAS_FEATURE_THREADING}
 {$ifdef FPC_HAS_FEATURE_THREADING}
 {$i threadh.inc}
 {$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
                           Dynamic library support