[project @ 2001-11-05 14:08:28 by chak]
[ghc-hetmet.git] / ghc / rts / Signals.h
1 /* -----------------------------------------------------------------------------
2  * $Id: Signals.h,v 1.6 2001/10/31 10:34:29 simonmar Exp $
3  *
4  * (c) The GHC Team, 1998-1999
5  *
6  * Signal processing / handling.
7  *
8  * ---------------------------------------------------------------------------*/
9
10 #ifndef PAR
11
12 extern StgPtr pending_handler_buf[];
13 extern StgPtr *next_pending_handler;
14
15 #define signals_pending() (next_pending_handler != pending_handler_buf)
16
17 extern void initUserSignals(void);
18 extern void blockUserSignals(void);
19 extern void unblockUserSignals(void);
20
21 /* sig_install declared in PrimOps.h */
22
23 extern void startSignalHandlers(void);
24 extern void initDefaultHandlers(void);
25
26 #else
27
28 #define signals_pending() (rtsFalse)
29
30 #endif /* PAR */