From 8807bf8fcf1a8b4a53ec63577a349fefd36dfb5f Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 30 Jun 2009 08:08:34 +0000
Subject: [PATCH] fix GC bug introduced with the C finalizer support

---
 rts/sm/Compact.c |    1 +
 1 file changed, 1 insertion(+)

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