From: simonmar <unknown>
Date: Thu, 16 Mar 2000 17:24:08 +0000 (+0000)
Subject: [project @ 2000-03-16 17:24:08 by simonmar]
X-Git-Tag: Approximately_9120_patches~4965
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cdcd92dcdaad32cf5d3b9a03775b2c1121c7bff7;p=ghc-hetmet.git

[project @ 2000-03-16 17:24:08 by simonmar]
put a lock in the right place.
---

diff --git a/ghc/rts/Select.c b/ghc/rts/Select.c
index b736129..d973e3e 100644
--- a/ghc/rts/Select.c
+++ b/ghc/rts/Select.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Select.c,v 1.8 2000/01/17 17:33:30 simonmar Exp $
+ * $Id: Select.c,v 1.9 2000/03/16 17:24:08 simonmar Exp $
  *
  * (c) The GHC Team 1995-1999
  *
@@ -153,8 +153,8 @@ awaitEvent(rtsBool wait)
 	 * serviced.
 	 */
 	if (signals_pending()) {
-	  start_signal_handlers();
 	  RELEASE_LOCK(&sched_mutex);
+	  start_signal_handlers();
 	  break;
 	}