Explorar o código

* fixed windows compilation after r15599

git-svn-id: trunk@15606 -
Jonas Maebe %!s(int64=15) %!d(string=hai) anos
pai
achega
0207e5f8cd
Modificáronse 1 ficheiros con 5 adicións e 0 borrados
  1. 5 0
      rtl/objpas/classes/classes.inc

+ 5 - 0
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;