diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-03-13 15:56:02 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-03-13 15:56:02 +0000 |
| commit | 54075ea5872c151573710d32876314e2005984ba (patch) | |
| tree | 83cba399cb7f717000d2e9fb30b1383c358f7e28 /rts/sm/GC.c | |
| parent | 536942c5b15e2cd06bb274022c670b9ecbbef465 (diff) | |
| download | haskell-54075ea5872c151573710d32876314e2005984ba.tar.gz | |
start finalizers on the current Capability rather than last_free_capability
Diffstat (limited to 'rts/sm/GC.c')
| -rw-r--r-- | rts/sm/GC.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/sm/GC.c b/rts/sm/GC.c index 45fecc9be4..501a9e52d4 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 |