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

+ add cthreads for unix platforms

git-svn-id: trunk@16299 -
Jonas Maebe преди 15 години
родител
ревизия
ae483061b1
променени са 1 файла, в които са добавени 6 реда и са изтрити 2 реда
  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.