|
@@ -169,6 +169,13 @@ begin
|
|
seterrno(olderrno);
|
|
seterrno(olderrno);
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
+{$ifdef DEBUG}
|
|
|
|
+ { Declare InstallDefaultSignalHandler as forward to be able
|
|
|
|
+ to test aclling fpsigaction again within SignalToRunError
|
|
|
|
+ function implemented within sighnd.inc inlcude file }
|
|
|
|
+procedure InstallDefaultSignalHandler(signum: longint; out oldact: SigActionRec); forward;
|
|
|
|
+{$endif}
|
|
|
|
+
|
|
{$i sighnd.inc}
|
|
{$i sighnd.inc}
|
|
|
|
|
|
procedure InstallDefaultSignalHandler(signum: longint; out oldact: SigActionRec); public name '_FPC_INSTALLDEFAULTSIGHANDLER';
|
|
procedure InstallDefaultSignalHandler(signum: longint; out oldact: SigActionRec); public name '_FPC_INSTALLDEFAULTSIGHANDLER';
|