From eea6454f0bcbec6c6612e963cd85702c475ef146 Mon Sep 17 00:00:00 2001
From: "simonmar@microsoft.com" <unknown>
Date: Thu, 13 Dec 2007 16:45:25 +0000
Subject: use synchronised version of freeChain() in scavenge_mutable_list()

---
 rts/sm/GCUtils.c | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'rts/sm/GCUtils.c')

diff --git a/rts/sm/GCUtils.c b/rts/sm/GCUtils.c
index a8f0099e9c..103430abed 100644
--- a/rts/sm/GCUtils.c
+++ b/rts/sm/GCUtils.c
@@ -33,6 +33,14 @@ allocBlock_sync(void)
     return bd;
 }
 
+void
+freeChain_sync(bdescr *bd)
+{
+    ACQUIRE_SPIN_LOCK(&gc_alloc_block_sync);
+    freeChain(bd);
+    RELEASE_SPIN_LOCK(&gc_alloc_block_sync);
+}
+
 /* -----------------------------------------------------------------------------
    Workspace utilities
    -------------------------------------------------------------------------- */
-- 
cgit v1.2.1