Răsfoiți Sursa

+ add cthreads for unix platforms

git-svn-id: trunk@16299 -
Jonas Maebe 15 ani în urmă
părinte
comite
ae483061b1
1 a modificat fișierele cu 6 adăugiri și 2 ștergeri
  1. 6 2
      tests/webtbs/tw17560.pp

+ 6 - 2
tests/webtbs/tw17560.pp

@@ -4,7 +4,11 @@
 
 {$ifdef fpc}{$mode objfpc}{$endif}
 
-uses SysUtils, Classes;
+uses
+{$ifdef unix}
+  cthreads,
+{$endif}
+  SysUtils, Classes;
 
 type
   TMyThread = class(TThread)
@@ -25,4 +29,4 @@ begin
   t := TMyThread.Create(True);
   t.Free;
   Halt(ord(Flag));
-end.
+end.