X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FSignals.c;h=4d76b11c29a7412f2a3802fed83cd19d914bc241;hb=423d477bfecd490de1449c59325c8776f91d7aac;hp=4773006dadf92b2c5d0a412d3f48de91ec523901;hpb=c49a6ca90100722cd6942322d32b64b4142a08a7;p=ghc-hetmet.git diff --git a/ghc/rts/Signals.c b/ghc/rts/Signals.c index 4773006..4d76b11 100644 --- a/ghc/rts/Signals.c +++ b/ghc/rts/Signals.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: Signals.c,v 1.37 2003/04/01 15:05:22 sof Exp $ + * $Id: Signals.c,v 1.41 2004/08/13 13:10:44 simonmar Exp $ * * (c) The GHC Team, 1998-1999 * @@ -16,10 +16,13 @@ #include "Signals.h" #include "RtsUtils.h" #include "RtsFlags.h" -#include "StablePriv.h" #ifdef alpha_TARGET_ARCH -# include +# if defined(linux_TARGET_OS) +# include +# else +# include +# endif #endif #ifdef HAVE_UNISTD_H @@ -291,7 +294,7 @@ stg_sig_install(int sig, int spi, StgStablePtr *handler, void *mask) } return STG_SIG_ERR; } - + if (previous_spi == STG_SIG_DFL || previous_spi == STG_SIG_IGN || previous_spi == STG_SIG_ERR) { return previous_spi; @@ -436,7 +439,7 @@ initDefaultHandlers() prog_belch("warning: failed to install SIGINT handler"); } -#ifndef cygwin32_TARGET_OS +#if defined(HAVE_SIGINTERRUPT) siginterrupt(SIGINT, 1); // isn't this the default? --SDM #endif