From de90a39db460e0b6f1d7e0cfeca98f0d24dd98ea Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 4 Apr 2005 10:39:23 +0000
Subject: [PATCH] [project @ 2005-04-04 10:39:23 by simonmar] Give prototypes
 for getAllocations and revertCAFs.

---
 ghc/includes/RtsExternal.h |    2 ++
 ghc/includes/Storage.h     |    2 --
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/includes/RtsExternal.h b/ghc/includes/RtsExternal.h
index c8b1f1c..a597918 100644
--- 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
--- 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;
-- 
1.7.10.4