bugfix for traverseBlackHoleQueue

[ghc-hetmet.git] / rts / sm / MarkWeak.c

diff --git a/rts/sm/MarkWeak.c b/rts/sm/MarkWeak.c
index 9d47cde..ce88466 100644 (file)
--- 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;