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

diff --git a/rts/Stats.c b/rts/Stats.c
index b1061de..58b113d 100644
--- a/rts/Stats.c
+++ b/rts/Stats.c
@@ -623,7 +623,7 @@ stat_exit(int alloc)
 		     i++, task = task->all_link) {
 		    statsPrintf("  Task %2d %-8s :  %6.2fs    (%6.2fs)     %6.2fs    (%6.2fs)\n",
 				i,
-				(task->tso == NULL) ? "(worker)" : "(bound)",
+				(task->worker) ? "(worker)" : "(bound)",
 				TICK_TO_DBL(task->mut_time),
 				TICK_TO_DBL(task->mut_etime),
 				TICK_TO_DBL(task->gc_time),
@@ -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