From 4318aa600015f0d7b4d977cb67071f3f8e7c3b0b Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 9 Sep 2008 13:22:34 +0000
Subject: Fix compacting GC bug: don't forget to thread the blackhole_queue

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

(limited to 'rts')

diff --git a/rts/sm/Compact.c b/rts/sm/Compact.c
index 9f0a69d1d1..7f3bb29580 100644
--- a/rts/sm/Compact.c
+++ b/rts/sm/Compact.c
@@ -996,6 +996,9 @@ compact(StgClosure *static_objects)
     // any threads resurrected during this GC
     thread((void *)&resurrected_threads);
 
+    // the blackhole queue
+    thread((void *)&blackhole_queue);
+
     // the task list
     {
 	Task *task;
-- 
cgit v1.2.1