X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FSignals.h;h=ffcac5562d04f6fead4b3253c7b05eca9e61dce4;hb=153b9cb9b11e05c4edb1b6bc0a7b972660e41f70;hp=4ea7523a9e1d31dd3b971d8d47dc9d697e297ca9;hpb=5eedab2c787043421b8b86e8f8f26c7404340229;p=ghc-hetmet.git diff --git a/ghc/rts/Signals.h b/ghc/rts/Signals.h index 4ea7523..ffcac55 100644 --- a/ghc/rts/Signals.h +++ b/ghc/rts/Signals.h @@ -1,5 +1,4 @@ /* ----------------------------------------------------------------------------- - * $Id: Signals.h,v 1.7 2002/03/12 13:57:14 simonmar Exp $ * * (c) The GHC Team, 1998-1999 * @@ -7,7 +6,8 @@ * * ---------------------------------------------------------------------------*/ -#ifndef PAR +#if !defined(PAR) && !defined(mingw32_HOST_OS) +#define RTS_USER_SIGNALS 1 extern StgPtr pending_handler_buf[]; extern StgPtr *next_pending_handler; @@ -24,10 +24,18 @@ extern void awaitUserSignals(void); /* sig_install declared in PrimOps.h */ extern void startSignalHandlers(void); +extern void markSignalHandlers (evac_fn evac); extern void initDefaultHandlers(void); -#else +extern void handleSignalsInThisThread(void); +extern void handleSignalsInPrevThread(void); +#elif defined(mingw32_HOST_OS) +#define RTS_USER_SIGNALS 1 +#include "win32/ConsoleHandler.h" + +#else /* PAR */ #define signals_pending() (rtsFalse) +#define handleSignalsInThisThread() /* nothing */ #endif /* PAR */