Explorar el Código

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

git-svn-id: trunk@20782 -
pierre hace 13 años
padre
commit
2d130d20e7
Se han modificado 1 ficheros con 7 adiciones y 0 borrados
  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';