From 8bc3f02844342419a9c6fe29afe6ab2f07acfb1e Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 3 Dec 2009 11:02:09 +0000 Subject: [PATCH] add a missing lock around allocGroup() --- rts/sm/Storage.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c index 0f74893..94f9e10 100644 --- a/rts/sm/Storage.c +++ b/rts/sm/Storage.c @@ -631,7 +631,9 @@ allocate (Capability *cap, lnat n) stp = &nurseries[cap->no]; + ACQUIRE_SM_LOCK bd = allocGroup(req_blocks); + RELEASE_SM_LOCK; dbl_link_onto(bd, &stp->large_objects); stp->n_large_blocks += bd->blocks; // might be larger than req_blocks initBdescr(bd, stp); -- 1.7.10.4