diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-06-30 08:08:34 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-06-30 08:08:34 +0000 |
| commit | 8807bf8fcf1a8b4a53ec63577a349fefd36dfb5f (patch) | |
| tree | 5de6a329743551d2f95dc92e9de737eb580827d6 | |
| parent | e50c1ea395c49b1480332f0ec08ffc20e72b6e80 (diff) | |
| download | haskell-8807bf8fcf1a8b4a53ec63577a349fefd36dfb5f.tar.gz | |
fix GC bug introduced with the C finalizer support
| -rw-r--r-- | rts/sm/Compact.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/sm/Compact.c b/rts/sm/Compact.c index 5f56c1e84b..9c13253c32 100644 --- a/rts/sm/Compact.c +++ b/rts/sm/Compact.c @@ -640,6 +640,7 @@ thread_obj (StgInfoTable *info, StgPtr p) case WEAK: { StgWeak *w = (StgWeak *)p; + thread(&w->cfinalizer); thread(&w->key); thread(&w->value); thread(&w->finalizer); |