From 54075ea5872c151573710d32876314e2005984ba Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 13 Mar 2009 15:56:02 +0000 Subject: [PATCH] start finalizers on the current Capability rather than last_free_capability --- rts/sm/GC.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/rts/sm/GC.c b/rts/sm/GC.c index 45fecc9..501a9e5 100644 --- a/rts/sm/GC.c +++ b/rts/sm/GC.c @@ -179,7 +179,7 @@ StgPtr oldgen_scan; void GarbageCollect (rtsBool force_major_gc, nat gc_type USED_IF_THREADS, - Capability *cap USED_IF_THREADS) + Capability *cap) { bdescr *bd; step *stp; @@ -748,7 +748,7 @@ GarbageCollect (rtsBool force_major_gc, // start any pending finalizers RELEASE_SM_LOCK; - scheduleFinalizers(last_free_capability, old_weak_ptr_list); + scheduleFinalizers(cap, old_weak_ptr_list); ACQUIRE_SM_LOCK; // send exceptions to any threads which were about to die -- 1.7.10.4