瀏覽代碼

* 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;