* fixed previous commit

git-svn-id: trunk@1623 -

rtl/inc/threadh.inc

@@ -15,8 +15,13 @@
  **********************************************************************}
 
 const
-   DefaultStackSize = 32768; { including 16384 margin for stackchecking }
-
+{$ifdef mswindows}
+  { on windows, use stack size of starting process }
+  DefaultStackSize = 0;
+{$else mswindows}
+  { including 16384 margin for stackchecking }
+  DefaultStackSize = 32768;
+{$endif mswindows}
 
 type
   PEventState = pointer;

rtl/win32/tthread.inc

@@ -124,8 +124,8 @@ begin
   FSuspended := CreateSuspended;
   Flags := 0;
   if CreateSuspended then Flags := CREATE_SUSPENDED;
-  FHandle := BeginThread(nil, 0, @ThreadProc, pointer(self), Flags,
-                         FThreadID, StackSize);
+  FHandle := BeginThread(nil, StackSize, @ThreadProc, pointer(self), Flags,
+                         FThreadID);
   FFatalException := nil;
 end;