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