diff options
| -rw-r--r-- | rts/Stats.c | 2 | ||||
| -rw-r--r-- | rts/sm/Storage.c | 3 | ||||
| -rw-r--r-- | rts/sm/Storage.h | 2 |
3 files changed, 1 insertions, 6 deletions
diff --git a/rts/Stats.c b/rts/Stats.c index b1061dee56..20de32a808 100644 --- a/rts/Stats.c +++ b/rts/Stats.c @@ -813,7 +813,7 @@ statDescribeGens(void) -------------------------------------------------------------------------- */ 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 diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c index 4498bda299..781234a72d 100644 --- a/rts/sm/Storage.c +++ b/rts/sm/Storage.c @@ -49,8 +49,6 @@ generation *generations = NULL; /* all the generations */ 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 @@ -789,7 +787,6 @@ calcAllocated( void ) allocated += g0->n_new_large_blocks * BLOCK_SIZE_W; - total_allocated += allocated; return allocated; } diff --git a/rts/sm/Storage.h b/rts/sm/Storage.h index 6dbccd8910..f8532e03c1 100644 --- a/rts/sm/Storage.h +++ b/rts/sm/Storage.h @@ -132,8 +132,6 @@ lnat countNurseryBlocks ( void ); Stats 'n' DEBUG stuff -------------------------------------------------------------------------- */ -extern ullong total_allocated; - lnat calcAllocated (void); lnat calcLiveBlocks (void); lnat calcLiveWords (void); |