fix GC bug introduced with the C finalizer support

diff --git a/rts/sm/Compact.c b/rts/sm/Compact.c
index 5f56c1e..9c13253 100644 (file)
--- 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);