From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 26 Nov 2010 14:06:20 +0000 (+0000)
Subject: small tidyup
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=42c62ec74a48ca7b450c46e2b8d35faf4e2ae8f7;p=ghc-hetmet.git

small tidyup
---

diff --git a/rts/Schedule.c b/rts/Schedule.c
index 8e39814..51f8e75 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -1031,10 +1031,8 @@ scheduleHandleHeapOverflow( Capability *cap, StgTSO *t )
 	    cap->r.rNursery->n_blocks == 1) {  // paranoia to prevent infinite loop
 	                                       // if the nursery has only one block.
 	    
-	    ACQUIRE_SM_LOCK
-	    bd = allocGroup( blocks );
-	    RELEASE_SM_LOCK
-	    cap->r.rNursery->n_blocks += blocks;
+            bd = allocGroup_lock(blocks);
+            cap->r.rNursery->n_blocks += blocks;
 	    
 	    // link the new group into the list
 	    bd->link = cap->r.rCurrentNursery;