From 122ff64971cbef8260221840caefc1a3411f41b5 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 16 Apr 2008 23:40:42 +0000 Subject: [PATCH] bugfix for traverseBlackHoleQueue --- rts/sm/MarkWeak.c | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/rts/sm/MarkWeak.c b/rts/sm/MarkWeak.c index 9d47cde..ce88466 100644 --- a/rts/sm/MarkWeak.c +++ b/rts/sm/MarkWeak.c @@ -303,9 +303,8 @@ traverseBlackholeQueue (void) continue; } } - tmp = t; - evacuate((StgClosure **)&tmp); - if (prev) prev->_link = t; + evacuate((StgClosure **)&t); + if (prev) prev->_link = t; // no write barrier when on the blackhole queue, // because we traverse the whole queue on every GC. flag = rtsTrue; -- 1.7.10.4