fix GC bug introduced with the C finalizer support

8807bf8f · Simon Marlow · e50c1ea3 · 8807bf8f
Commit 8807bf8f authored Jun 30, 2009 by Simon Marlow
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 0 deletions

rts/sm/Compact.c rts/sm/Compact.c +1 -0

No files found.
--- 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);