git-svn-id: trunk@16299 -
@@ -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.