t_id
1179
t_adddate
2003/11/01
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022172233 | 1027288 | True | False | Successfully run |
Record count: 1
{ 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.