diff options
| author | Edward Z. Yang <ezyang@mit.edu> | 2011-08-06 11:18:36 -0400 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@mit.edu> | 2011-08-06 13:24:52 -0400 |
| commit | 9213fc968a56fb671efc4d091ace236b18dec541 (patch) | |
| tree | 6d67bbd00b3adbebb00dbd86cef641fdb8cb56b8 /rts/Stats.c | |
| parent | e17c1568baf142c2d2ddca4a4b4a7ba5a4ceddca (diff) | |
| download | haskell-9213fc968a56fb671efc4d091ace236b18dec541.tar.gz | |
Also include basic time statistics in GCStats.
Signed-off-by: Edward Z. Yang <ezyang@mit.edu>
Diffstat (limited to 'rts/Stats.c')
| -rw-r--r-- | rts/Stats.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/rts/Stats.c b/rts/Stats.c index ebe239f06e..b3b0f804d6 100644 --- a/rts/Stats.c +++ b/rts/Stats.c @@ -891,6 +891,9 @@ extern void getGCStats( GCStats *s ) s->mutator_wall_seconds = TICK_TO_DBL(current_elapsed- end_init_elapsed - gc_elapsed); s->gc_cpu_seconds = TICK_TO_DBL(gc_cpu); s->gc_wall_seconds = TICK_TO_DBL(gc_elapsed); + /* EZY: Being consistent with incremental output, but maybe should also discount init */ + s->cpu_seconds = TICK_TO_DBL(current_cpu); + s->wall_seconds = TICK_TO_DBL(current_elapsed - end_init_elapsed); s->par_avg_bytes_copied = GC_par_avg_copied*(StgWord64)sizeof(W_); s->par_max_bytes_copied = GC_par_max_copied*(StgWord64)sizeof(W_); } |