X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FStorage.h;fp=includes%2FStorage.h;h=90e364cbc493052eaba1a211461e26339f53b3a4;hb=f86e7206ea94b48b94fb61007a1c5d55b8c60f45;hp=5b8acfa104e343f2da53bbdc63e66ac9bf844ab1;hpb=ae267d04df855051b99218e3712b3f56b8016d56;p=ghc-hetmet.git

diff --git a/includes/Storage.h b/includes/Storage.h
index 5b8acfa..90e364c 100644
--- a/includes/Storage.h
+++ b/includes/Storage.h
@@ -536,16 +536,17 @@ extern void     resizeNurseries      ( nat blocks );
 extern void     resizeNurseriesFixed ( nat blocks );
 extern lnat     countNurseryBlocks   ( void );
 
+
 /* -----------------------------------------------------------------------------
    Functions from GC.c 
    -------------------------------------------------------------------------- */
 
-typedef void (*evac_fn)(StgClosure **);
+typedef void (*evac_fn)(void *user, StgClosure **root);
 
 extern void         threadPaused ( Capability *cap, StgTSO * );
 extern StgClosure * isAlive      ( StgClosure *p );
-extern void         markCAFs     ( evac_fn evac );
-extern void         GetRoots     ( evac_fn evac );
+extern void         markCAFs     ( evac_fn evac, void *user );
+extern void         GetRoots     ( evac_fn evac, void *user );
 
 /* -----------------------------------------------------------------------------
    Stats 'n' DEBUG stuff