diff options
Diffstat (limited to 'rtl/objpas/classes/classes.inc')
| -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; |