Browse Source

+ add cthreads for unix platforms

git-svn-id: trunk@16299 -
Jonas Maebe 14 years ago
parent
commit
ae483061b1
1 changed files with 6 additions and 2 deletions
  1. 6 2
      tests/webtbs/tw17560.pp

+ 6 - 2
tests/webtbs/tw17560.pp

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