From 42c62ec74a48ca7b450c46e2b8d35faf4e2ae8f7 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 26 Nov 2010 14:06:20 +0000 Subject: [PATCH] small tidyup --- rts/Schedule.c | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) 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; -- 1.7.10.4