Browse Source

+ Add forward declaration of InstallDefaultSignalHandler for use inside sighnd.inc

git-svn-id: trunk@20782 -
pierre 13 years ago
parent
commit
2d130d20e7
1 changed files with 7 additions and 0 deletions
  1. 7 0
      rtl/bsd/system.pp

+ 7 - 0
rtl/bsd/system.pp

@@ -169,6 +169,13 @@ begin
   seterrno(olderrno);
 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}
 
 procedure InstallDefaultSignalHandler(signum: longint; out oldact: SigActionRec); public name '_FPC_INSTALLDEFAULTSIGHANDLER';