[project @ 2005-04-04 10:39:23 by simonmar]

Give prototypes for getAllocations and revertCAFs.

diff --git a/ghc/includes/RtsExternal.h b/ghc/includes/RtsExternal.h
index c8b1f1c..a597918 100644 (file)
--- a/ghc/includes/RtsExternal.h
+++ b/ghc/includes/RtsExternal.h
@@ -78,5 +78,7 @@ typedef void (*evac_fn)(StgClosure **);
 extern void performGC(void);
 extern void performMajorGC(void);
 extern void performGCWithRoots(void (*get_roots)(evac_fn));
+extern HsInt64 getAllocations( void );
+extern void revertCAFs( void );
 
 #endif /*  RTSEXTERNAL_H */

diff --git a/ghc/includes/Storage.h b/ghc/includes/Storage.h
index 2706756..7ed9b91 100644 (file)
--- a/ghc/includes/Storage.h
+++ b/ghc/includes/Storage.h
@@ -232,8 +232,6 @@ recordMutable(StgClosure *p)
    The CAF table - used to let us revert CAFs in GHCi
    -------------------------------------------------------------------------- */
 
-void revertCAFs( void );
-
 /* set to disable CAF garbage collection in GHCi. */
 /* (needed when dynamic libraries are used). */
 extern rtsBool keepCAFs;