* InitThread variant without parameters as user threads normally cannot know the max. stack size

git-svn-id: trunk@43068 -

rtl/inc/thread.inc

@@ -96,6 +96,13 @@ Var
           CurrentTM.ReleaseThreadVars;
       end;
 
+
+    procedure InitThread;
+      begin
+        { we should find a reasonable value here }
+        InitThread($1000000);
+      end;
+
 {*****************************************************************************
                             Overloaded functions
 *****************************************************************************}