From: sewardj <unknown>
Date: Fri, 24 Mar 2000 14:51:50 +0000 (+0000)
Subject: [project @ 2000-03-24 14:51:50 by sewardj]
X-Git-Tag: Approximately_9120_patches~4905
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e705c0fbbdb5995c06ebf1cc414ed8945407236a;p=ghc-hetmet.git

[project @ 2000-03-24 14:51:50 by sewardj]
Win32 signal wibbles.
---

diff --git a/ghc/interpreter/machdep.c b/ghc/interpreter/machdep.c
index 2ca5102..a9c4747 100644
--- a/ghc/interpreter/machdep.c
+++ b/ghc/interpreter/machdep.c
@@ -13,8 +13,8 @@
  * included in the distribution.
  *
  * $RCSfile: machdep.c,v $
- * $Revision: 1.23 $
- * $Date: 2000/03/24 14:32:03 $
+ * $Revision: 1.24 $
+ * $Date: 2000/03/24 14:51:50 $
  * ------------------------------------------------------------------------*/
 
 #ifdef HAVE_SIGNAL_H
@@ -1169,7 +1169,7 @@ Int readTerminalChar() {                /* read character from terminal    */
 static Void installHandlers ( void ) { /* Install handlers for all fatal   */ 
                                       /* signals except SIGINT and SIGBREAK*/
 #if IS_WIN32
-    SetConsoleCtrlHandler(consoleHandler,TRUE);
+    /* SetConsoleCtrlHandler(consoleHandler,TRUE); */
 #endif
 #if !DONT_PANIC && !DOS
 # ifdef SIGABRT