diff options
| author | hajny <hajny@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2015-02-15 19:39:53 +0000 |
|---|---|---|
| committer | hajny <hajny@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2015-02-15 19:39:53 +0000 |
| commit | 997aed6cb74fa3647735e9ec77498d81b317c836 (patch) | |
| tree | 58ff4b5dbe7e15a1f426b045f62e796b74b70212 /rtl/os2 | |
| parent | dba7c54ce976fdf6a91ad66d8026f6225a65a640 (diff) | |
| download | fpc-997aed6cb74fa3647735e9ec77498d81b317c836.tar.gz | |
* fix for bug #16884 for OS/2
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@29712 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/os2')
| -rw-r--r-- | rtl/os2/tthread.inc | 5 |
1 files changed, 4 insertions, 1 deletions
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); |