Browse Source

* fixed windows compilation after r15599

git-svn-id: trunk@15606 -
Jonas Maebe 15 years ago
parent
commit
0207e5f8cd
1 changed files with 5 additions and 0 deletions
  1. 5 0
      rtl/objpas/classes/classes.inc

+ 5 - 0
rtl/objpas/classes/classes.inc

@@ -124,8 +124,13 @@ end;
 procedure TThread.AfterConstruction;
 procedure TThread.AfterConstruction;
 begin
 begin
   inherited AfterConstruction;
   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
   if not FInitialSuspended then
     Resume;
     Resume;
+{$endif}
 end;
 end;