[project @ 2004-08-13 13:04:50 by simonmar]
[ghc-hetmet.git] / ghc / rts / Signals.c
index 749a683..4d76b11 100644 (file)
@@ -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