Преглед изворни кода

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 година
родитељ
комит
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
 // is fixed for all platforms (in case the fix for non-unix platforms also
 // 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
     Resume;
 {$endif}