From 997aed6cb74fa3647735e9ec77498d81b317c836 Mon Sep 17 00:00:00 2001
From: hajny <hajny@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Sun, 15 Feb 2015 19:39:53 +0000
Subject:   * fix for bug #16884 for OS/2

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@29712 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 rtl/os2/tthread.inc | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'rtl/os2')

diff --git a/rtl/os2/tthread.inc b/rtl/os2/tthread.inc
index ece7c3dc49..28a4922942 100644
--- a/rtl/os2/tthread.inc
+++ b/rtl/os2/tthread.inc
@@ -107,8 +107,11 @@ var
   Flags: cardinal;
 begin
   AddThread;
-  Flags := dtStack_Commited;
+  { Always start in suspended state, will be resumed in AfterConstruction if necessary
+    See Mantis #16884 }
+  Flags := dtStack_Commited or dtSuspended;
   FSuspended := CreateSuspended;
+  FInitialSuspended := CreateSuspended;
   if FSuspended then Flags := Flags or dtSuspended;
   FHandle := BeginThread (nil, StackSize, @ThreadProc, pointer (Self),
                                                              Flags, FThreadID);
-- 
cgit v1.2.1