浏览代码

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

git-svn-id: trunk@20782 -
pierre 13 年之前
父节点
当前提交
2d130d20e7
共有 1 个文件被更改,包括 7 次插入0 次删除
  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';