From 18dbd4340f1909eceeb320adba8dfa88ea7d407d Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sat, 16 Feb 2002 00:30:05 +0000
Subject: [PATCH] [project @ 2002-02-16 00:30:05 by sof] release sched_mutex
lock while GCing
---
ghc/rts/Schedule.c | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index 47be2ccf041b..01c97fce55b1 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);
--
GitLab