From: sof <unknown>
Date: Sat, 16 Feb 2002 00:30:05 +0000 (+0000)
Subject: [project @ 2002-02-16 00:30:05 by sof]
X-Git-Tag: Approximately_9120_patches~21
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=18dbd4340f1909eceeb320adba8dfa88ea7d407d;p=ghc-hetmet.git

[project @ 2002-02-16 00:30:05 by sof]
release sched_mutex lock while GCing
---

diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index 47be2cc..01c97fc 100644
--- a/ghc/rts/Schedule.c
+++ b/ghc/rts/Schedule.c
@@ -1,5 +1,5 @@
 /* ---------------------------------------------------------------------------
- * $Id: Schedule.c,v 1.129 2002/02/15 22:15:09 sof Exp $
+ * $Id: Schedule.c,v 1.130 2002/02/16 00:30:05 sof Exp $
  *
  * (c) The GHC Team, 1998-2000
  *
@@ -1344,7 +1344,9 @@ schedule( void )
 #if defined(RTS_SUPPORTS_THREADS)
       IF_DEBUG(scheduler,sched_belch("doing GC"));
 #endif
+      RELEASE_LOCK(&sched_mutex);
       GarbageCollect(GetRoots,rtsFalse);
+      ACQUIRE_LOCK(&sched_mutex);
       ready_to_gc = rtsFalse;
 #ifdef SMP
       broadcastCondition(&gc_pending_cond);