X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FStorage.h;h=62d57b1d7bd3bb68728c754b912e50292ae5a817;hb=2cf1115cd06678e5255c39e9fd56787031c31c06;hp=a40fd95596a316f5921ff0a43fe9e5e67f30f15f;hpb=860da5c16d163ae7414344c3f14a34b2788e5814;p=ghc-hetmet.git

diff --git a/includes/Storage.h b/includes/Storage.h
index a40fd95..62d57b1 100644
--- a/includes/Storage.h
+++ b/includes/Storage.h
@@ -519,7 +519,9 @@ extern void         GetRoots     ( evac_fn evac );
 extern ullong RTS_VAR(total_allocated);
 
 extern lnat calcAllocated  ( void );
-extern lnat calcLive       ( void );
+extern lnat calcLiveBlocks ( void );
+extern lnat calcLiveWords  ( void );
+extern lnat countOccupied  ( bdescr *bd );
 extern lnat calcNeeded     ( void );
 
 #if defined(DEBUG)