blob: 53db682508fdd56b4a61cf24b893b5e88e94d888 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{ Source provided for Free Pascal Bug Report 2758 }
{ Submitted by "marco" on 2003-10-31 }
{ e-mail: }
Type
sigcontextrec=record end;
SignalHandler = Procedure(Sig : Longint);cdecl;
PSignalHandler = ^SignalHandler;
TSigAction = procedure(Sig: Longint; SigContext: SigContextRec);cdecl;
SigActionRec = packed record // this is temporary for the migration
sa_handler : signalhandler;
end;
procedure signaltorunerror(Sig: Longint; SigContext: SigContextRec);cdecl;
begin end; // tsigaction style
var r : sigactionrec;
begin
r.sa_handler:=signalhandler(@signaltorunerror);
end.
|