X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2Fsm%2FGC.c;fp=rts%2Fsm%2FGC.c;h=4ba05bf5b4068704ad2683595874e1a6f23411ef;hp=221f24a5af36fbc724b99fbfdbd9a6cfbddfc9de;hb=d4fd857db149e9d21c83c7254faecc92d73f7f03;hpb=8392ba25da0acb27cd64bf0bb4e5fb5406de4222

diff --git a/rts/sm/GC.c b/rts/sm/GC.c
index 221f24a..4ba05bf 100644
--- a/rts/sm/GC.c
+++ b/rts/sm/GC.c
@@ -831,7 +831,8 @@ new_gc_thread (nat n, gc_thread *t)
         ws->todo_q = newWSDeque(128);
         ws->todo_overflow = NULL;
         ws->n_todo_overflow = 0;
-        
+        ws->todo_large_objects = NULL;
+
         ws->part_list = NULL;
         ws->n_part_blocks = 0;