From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 13 Mar 2009 15:56:02 +0000 (+0000)
Subject: start finalizers on the current Capability rather than last_free_capability
X-Git-Tag: 2009-06-25~478
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=54075ea5872c151573710d32876314e2005984ba

start finalizers on the current Capability rather than last_free_capability
---

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