From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 30 Jun 2009 08:08:34 +0000 (+0000)
Subject: fix GC bug introduced with the C finalizer support
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=8807bf8fcf1a8b4a53ec63577a349fefd36dfb5f

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
--- 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);