Преглед на файлове

* fixed windows compilation after r15599

git-svn-id: trunk@15606 -
Jonas Maebe преди 15 години
родител
ревизия
0207e5f8cd
променени са 1 файла, в които са добавени 5 реда и са изтрити 0 реда
  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;