Просмотр исходного кода

classes: since AThreads supports suspended thread creation, enable resume code in AfterConstruction for Amiga-like platforms too

git-svn-id: trunk@30941 -
Károly Balogh 10 лет назад
Родитель
Сommit
cdea58317e
1 измененных файлов с 1 добавлено и 1 удалено
  1. 1 1
      rtl/objpas/classes/classes.inc

+ 1 - 1
rtl/objpas/classes/classes.inc

@@ -236,7 +236,7 @@ begin
 // enable for all platforms once http://bugs.freepascal.org/view.php?id=16884
 // 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
 // is fixed for all platforms (in case the fix for non-unix platforms also
 // requires this field at least)
 // requires this field at least)
-{$if defined(unix) or defined(windows) or defined(os2)}
+{$if defined(unix) or defined(windows) or defined(os2) or defined(hasamiga)}
   if not FExternalThread and not FInitialSuspended then
   if not FExternalThread and not FInitialSuspended then
     Resume;
     Resume;
 {$endif}
 {$endif}