X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FCapability.c;h=444532480d1148e83b56a3ba784a3a0476893a29;hb=27de38efce6d73d2a0209f803cfa98c82773e773;hp=4950df63bb1b199ff4c15382e854ee2eddf08961;hpb=f86e7206ea94b48b94fb61007a1c5d55b8c60f45;p=ghc-hetmet.git

diff --git a/rts/Capability.c b/rts/Capability.c
index 4950df6..4445324 100644
--- a/rts/Capability.c
+++ b/rts/Capability.c
@@ -796,7 +796,7 @@ markSomeCapabilities (evac_fn evac, void *user, nat i0, nat delta)
         markSparkQueue (evac, user, cap);
 #endif
     }
-    
+
 #if !defined(THREADED_RTS)
     evac(user, (StgClosure **)(void *)&blocked_queue_hd);
     evac(user, (StgClosure **)(void *)&blocked_queue_tl);
@@ -804,6 +804,20 @@ markSomeCapabilities (evac_fn evac, void *user, nat i0, nat delta)
 #endif 
 }
 
+// This function is used by the compacting GC to thread all the
+// pointers from spark queues.
+void
+traverseSparkQueues (evac_fn evac USED_IF_THREADS, void *user USED_IF_THREADS)
+{
+#if defined(THREADED_RTS)
+    nat i;
+    for (i = 0; i < n_capabilities; i++) {
+        traverseSparkQueue (evac, user, &capabilities[i]);
+    }
+#endif // THREADED_RTS
+
+}
+
 void
 markCapabilities (evac_fn evac, void *user)
 {