From: Simon Marlow <simonmarhaskell@gmail.com>
Date: Wed, 16 Apr 2008 23:40:42 +0000 (+0000)
Subject: bugfix for traverseBlackHoleQueue
X-Git-Tag: Before_cabalised-GHC~195
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=122ff64971cbef8260221840caefc1a3411f41b5

bugfix for traverseBlackHoleQueue
---

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;