From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 17 Jun 2010 11:32:59 +0000 (+0000)
Subject: Make getAllocations() visible
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=f6ee1f315a7e7069b21a993fb058e00d06b73487

Make getAllocations() visible
---

diff --git a/includes/rts/storage/GC.h b/includes/rts/storage/GC.h
index 5f2165f..9616d72 100644
--- a/includes/rts/storage/GC.h
+++ b/includes/rts/storage/GC.h
@@ -175,6 +175,13 @@ void revertCAFs (void);
 void setKeepCAFs (void);
 
 /* -----------------------------------------------------------------------------
+   Stats
+   -------------------------------------------------------------------------- */
+
+// Returns the total number of bytes allocated since the start of the program.
+HsInt64 getAllocations (void);
+
+/* -----------------------------------------------------------------------------
    This is the write barrier for MUT_VARs, a.k.a. IORefs.  A
    MUT_VAR_CLEAN object is not on the mutable list; a MUT_VAR_DIRTY
    is.  When written to, a MUT_VAR_CLEAN turns into a MUT_VAR_DIRTY
diff --git a/rts/Stats.h b/rts/Stats.h
index d751761..f3a20ae 100644
--- a/rts/Stats.h
+++ b/rts/Stats.h
@@ -61,8 +61,6 @@ Ticks stat_getElapsedTime(void);
 void statsPrintf( char *s, ... ) 
     GNUC3_ATTRIBUTE(format (printf, 1, 2));
 
-HsInt64 getAllocations (void);
-
 #include "EndPrivate.h"
 
 #endif /* STATS_H */