X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FStats.c;h=20de32a808ca42a3d829fae0af6b7bedb2f02146;hb=5fb52815fa7aef4a4793eb58a909bd5465b77bb4;hp=b1061dee56af230e94fd284e4b1c20c301c29055;hpb=214b3663d5d7598c13643f9221e43d5a7735b47f;p=ghc-hetmet.git

diff --git a/rts/Stats.c b/rts/Stats.c
index b1061de..20de32a 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