diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-07-19 09:24:26 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-07-19 09:24:26 +0000 |
| commit | c4acb2dbfe73b42b02083b0f77e889b6f2ac8158 (patch) | |
| tree | a074911b8a3b861164930ae9290fe1a827988a4b | |
| parent | 823df34bc679c980d7e08ddf50de7e51d4cbae20 (diff) | |
| download | fpc-c4acb2dbfe73b42b02083b0f77e889b6f2ac8158.tar.gz | |
* fixed windows compilation after r15599
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@15606 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | rtl/objpas/classes/classes.inc | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/rtl/objpas/classes/classes.inc b/rtl/objpas/classes/classes.inc index 3fc2046c56..e74e56e68a 100644 --- a/rtl/objpas/classes/classes.inc +++ b/rtl/objpas/classes/classes.inc @@ -124,8 +124,13 @@ end; procedure TThread.AfterConstruction; begin inherited AfterConstruction; +// enable for all platforms once http://bugs.freepascal.org/view.php?id=16884 +// is fixed for all platforms (in case the fix for non-unix platforms also +// requires this field at least) +{$ifdef unix} if not FInitialSuspended then Resume; +{$endif} end; |