remove performGCWithRoots()

[ghc-hetmet.git] / rts / Schedule.c

diff --git a/rts/Schedule.c b/rts/Schedule.c
index 0e54b65..571d02b 100644 (file)
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -2670,11 +2670,6 @@ GetRoots( evac_fn evac )
    This is the interface to the garbage collector from Haskell land.
    We provide this so that external C code can allocate and garbage
    collect when called from Haskell via _ccall_GC.
-
-   It might be useful to provide an interface whereby the programmer
-   can specify more roots (ToDo).
-   
-   This needs to be protected by the GC condition variable above.  KH.
    -------------------------------------------------------------------------- */
 
 static void (*extra_roots)(evac_fn);
@@ -2712,13 +2707,6 @@ AllRoots(evac_fn evac)
     extra_roots(evac);         // the user's roots
 }
 
-void
-performGCWithRoots(void (*get_roots)(evac_fn))
-{
-    extra_roots = get_roots;
-    performGC_(rtsFalse, AllRoots);
-}
-
 /* -----------------------------------------------------------------------------
    Stack overflow