X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FSignals.c;h=4d76b11c29a7412f2a3802fed83cd19d914bc241;hb=423d477bfecd490de1449c59325c8776f91d7aac;hp=749a683a2c5065f27c777dd10161ffe95d463a46;hpb=6a9485d7f7d2c2d9f762215450c89e878ada13a4;p=ghc-hetmet.git diff --git a/ghc/rts/Signals.c b/ghc/rts/Signals.c index 749a683..4d76b11 100644 --- a/ghc/rts/Signals.c +++ b/ghc/rts/Signals.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: Signals.c,v 1.38 2003/09/21 13:22:03 igloo Exp $ + * $Id: Signals.c,v 1.41 2004/08/13 13:10:44 simonmar Exp $ * * (c) The GHC Team, 1998-1999 * @@ -16,7 +16,6 @@ #include "Signals.h" #include "RtsUtils.h" #include "RtsFlags.h" -#include "StablePriv.h" #ifdef alpha_TARGET_ARCH # if defined(linux_TARGET_OS) @@ -295,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; @@ -440,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