X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FCompact.c;h=c5f0c371301c9c10f3298c82654e92a810813ecd;hb=200c73fdfea734765c48309cc8dcbcf44b69c8c5;hp=fa6efa9f4e867f75778b3dc59ed2c0927041f594;hpb=04cddd339c000df6d02c90ce59dbffa58d2fe166;p=ghc-hetmet.git

diff --git a/rts/sm/Compact.c b/rts/sm/Compact.c
index fa6efa9..c5f0c37 100644
--- a/rts/sm/Compact.c
+++ b/rts/sm/Compact.c
@@ -986,7 +986,9 @@ compact(StgClosure *static_objects)
     }
 
     // the global thread list
-    thread((void *)&all_threads);
+    for (s = 0; s < total_steps; s++) {
+        thread((void *)&all_steps[s].threads);
+    }
 
     // any threads resurrected during this GC
     thread((void *)&resurrected_threads);