فهرست منبع

+ 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.