paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 10:59:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ add cthreads for unix platforms

Browse Source 
git-svn-id: trunk@16299 -
This commit is contained in:
Jonas Maebe 2010-11-03 12:41:32 +00:00
parent c4488f6b3a
commit ae483061b1
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/webtbs/tw17560.pp
View File

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