add a missing lock around allocGroup()

8bc3f028 · Simon Marlow · c17eee4d · 8bc3f028
Commit 8bc3f028 authored Dec 03, 2009 by Simon Marlow
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

rts/sm/Storage.c rts/sm/Storage.c +2 -0

No files found.
--- 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);