From 128a7fae5da321c24008b1d53ece0a8b58912c82 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 9 Sep 2008 13:33:07 +0000 Subject: [PATCH] small bugfix in traverseBlackHoleQueue() --- rts/sm/MarkWeak.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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; -- 1.7.10.4