Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : ghc-7.2
http://hackage.haskell.org/trac/ghc/changeset/e01d7e15f7a01e676f9be6125abc7a246a5b0b84 >--------------------------------------------------------------- commit e01d7e15f7a01e676f9be6125abc7a246a5b0b84 Author: Ian Lynagh <[email protected]> Date: Sun Jul 24 13:14:20 2011 +0100 Don't subtract HC_tot_time when calculating mut_user_time Heap census now happens during GC, so that time is already accounted for in GC_tot_cpu. >--------------------------------------------------------------- rts/Stats.c | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/rts/Stats.c b/rts/Stats.c index be0db06..a210c60 100644 --- a/rts/Stats.c +++ b/rts/Stats.c @@ -86,7 +86,7 @@ Ticks stat_getElapsedTime(void) double mut_user_time_until( Ticks t ) { - return TICK_TO_DBL(t - GC_tot_cpu - PROF_VAL(RP_tot_time + HC_tot_time)); + return TICK_TO_DBL(t - GC_tot_cpu - PROF_VAL(RP_tot_time)); } double @@ -105,13 +105,13 @@ mut_user_time( void ) double mut_user_time_during_RP( void ) { - return TICK_TO_DBL(RP_start_time - GC_tot_cpu - RP_tot_time - HC_tot_time); + return TICK_TO_DBL(RP_start_time - GC_tot_cpu - RP_tot_time); } double mut_user_time_during_heap_census( void ) { - return TICK_TO_DBL(HC_start_time - GC_tot_cpu - RP_tot_time - HC_tot_time); + return TICK_TO_DBL(HC_start_time - GC_tot_cpu - RP_tot_time); } #endif /* PROFILING */ _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
