[project @ 1998-12-02 13:17:09 by simonm]
[ghc-hetmet.git] / ghc / rts / Signals.h
1 /* -----------------------------------------------------------------------------
2  * $Id: Signals.h,v 1.2 1998/12/02 13:28:47 simonm Exp $
3  *
4  * Signal processing / handling.
5  *
6  * ---------------------------------------------------------------------------*/
7
8 #ifndef PAR
9
10 extern StgPtr pending_handler_buf[];
11 extern StgPtr *next_pending_handler;
12
13 #define signals_pending() (next_pending_handler != pending_handler_buf)
14
15 extern void initUserSignals(void);
16 extern void blockUserSignals(void);
17 extern void unblockUserSignals(void);
18
19 /* sig_install declared in PrimOps.h */
20
21 extern void start_signal_handlers(void);
22
23 #else
24
25 #define signals_pending() (rtsFalse)
26
27 #endif /* PAR */