From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 9 Sep 2008 13:33:07 +0000 (+0000)
Subject: small bugfix in traverseBlackHoleQueue()
X-Git-Tag: 2008-09-12~42
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=128a7fae5da321c24008b1d53ece0a8b58912c82;p=ghc-hetmet.git

small bugfix in traverseBlackHoleQueue()
---

diff --git a/rts/sm/MarkWeak.c b/rts/sm/MarkWeak.c
index 96b4f67..3d80357 100644
--- a/rts/sm/MarkWeak.c
+++ b/rts/sm/MarkWeak.c
@@ -341,7 +341,11 @@ traverseBlackholeQueue (void)
                 }
             }
             evacuate((StgClosure **)&t);
-            if (prev) prev->_link = t;
+            if (prev) {
+                prev->_link = t;
+            } else {
+                blackhole_queue = t;
+            }
                  // no write barrier when on the blackhole queue,
                  // because we traverse the whole queue on every GC.
             flag = rtsTrue;