extern bdescr * RTS_VAR(large_alloc_list);
extern bdescr * RTS_VAR(pinned_object_block);
-extern StgPtr RTS_VAR(alloc_Hp);
-extern StgPtr RTS_VAR(alloc_HpLim);
-
extern nat RTS_VAR(alloc_blocks);
extern nat RTS_VAR(alloc_blocks_lim);
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)