[project @ 1999-02-05 16:02:18 by simonm]
[ghc-hetmet.git] / ghc / rts / Signals.h
1 /* -----------------------------------------------------------------------------
2  * $Id: Signals.h,v 1.3 1999/02/05 16:02:55 simonm 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 start_signal_handlers(void);
24
25 #else
26
27 #define signals_pending() (rtsFalse)
28
29 #endif /* PAR */