|
|
@@ -1,23 +0,0 @@
|
|
|
-{ 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.
|
|
|
-
|
peter