mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 14:49:33 +02:00
39 lines
488 B
ObjectPascal
39 lines
488 B
ObjectPascal
{ %target=linux,darwin,solaris,freebsd,haiku,beos,aix }
|
|
|
|
program TestSignal;
|
|
|
|
{$MODE objfpc}
|
|
|
|
uses
|
|
BaseUnix,
|
|
sysutils;
|
|
|
|
var
|
|
Ok: Boolean;
|
|
|
|
procedure signal_handler(sig: LongInt); cdecl;
|
|
begin
|
|
Writeln('4');
|
|
Ok := True;
|
|
end;
|
|
|
|
var
|
|
Pid: pid_t;
|
|
begin
|
|
Ok := False;
|
|
Writeln('1');
|
|
fpsignal(SIGUSR1, @signal_handler);
|
|
Writeln('2');
|
|
Pid := fpgetpid;
|
|
Writeln('3');
|
|
fpkill(Pid, SIGUSR1);
|
|
|
|
sleep(500);
|
|
if not ok then
|
|
halt(1);
|
|
|
|
Writeln('5');
|
|
Writeln('done');
|
|
end.
|
|
|