-------------------------------------------------------------------------- */
extern HsInt64 getAllocations( void )
-{ return (HsInt64)total_allocated * sizeof(W_); }
+{ return (HsInt64)GC_tot_alloc * sizeof(W_); }
/* -----------------------------------------------------------------------------
Dumping stuff in the stats file, or via the debug message interface
generation *g0 = NULL; /* generation 0, for convenience */
generation *oldest_gen = NULL; /* oldest generation, for convenience */
-ullong total_allocated = 0; /* total memory allocated during run */
-
nursery *nurseries = NULL; /* array of nurseries, size == n_capabilities */
#ifdef THREADED_RTS
allocated += g0->n_new_large_blocks * BLOCK_SIZE_W;
- total_allocated += allocated;
return allocated;
}
Stats 'n' DEBUG stuff
-------------------------------------------------------------------------- */
-extern ullong total_allocated;
-
lnat calcAllocated (void);
lnat calcLiveBlocks (void);
lnat calcLiveWords (void);