blob: 99552e16c22d00bfcaca2262b77801f8a3eed1f6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{$mode objfpc}{$H+}
uses
{$ifdef unix}
cthreads,
{$endif}
Classes;
begin
writeln('GetThreadID=', ptrint(GetThreadID));
writeln('GetCurrentThreadID=', ptrint(GetCurrentThreadId));
writeln('MainThreadID=', ptrint(MainThreadID));
if (GetThreadID<>GetCurrentThreadID) or
(MainThreadID<>GetThreadID) then
halt(1);
end.
|
