X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSchedule.c;h=f5cb5686005d303ae2eedb652a4c9e152e7b4f2e;hb=6cec61d14a324285dbb8ce73d4c7215f1f8d6766;hp=382ba97fbc849810c2525998640d74b6ace96395;hpb=a8051a4b615742040bf1a53bb1ff21236dcc9fcd;p=ghc-hetmet.git

diff --git a/rts/Schedule.c b/rts/Schedule.c
index 382ba97..f5cb568 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -2069,6 +2069,16 @@ freeScheduler( void )
 #endif
 }
 
+void markScheduler (evac_fn evac USED_IF_NOT_THREADS, 
+                    void *user USED_IF_NOT_THREADS)
+{
+#if !defined(THREADED_RTS)
+    evac(user, (StgClosure **)(void *)&blocked_queue_hd);
+    evac(user, (StgClosure **)(void *)&blocked_queue_tl);
+    evac(user, (StgClosure **)(void *)&sleeping_queue);
+#endif 
+}
+
 /* -----------------------------------------------------------------------------
    performGC