diff options
| author | simonmar@microsoft.com <unknown> | 2007-11-20 13:36:35 +0000 |
|---|---|---|
| committer | simonmar@microsoft.com <unknown> | 2007-11-20 13:36:35 +0000 |
| commit | 8db56c8606e6c0e89a87d34c3f67124f1e8b988e (patch) | |
| tree | 8ee9883969f75dbaa1fcd6d9842f79d5adc56805 /rts/Stats.c | |
| parent | 510d17388f2c1cde5bbcef8083a57444438614de (diff) | |
| download | haskell-8db56c8606e6c0e89a87d34c3f67124f1e8b988e.tar.gz | |
improvements to PAPI support
- major (multithreaded) GC is measured separately from minor GC
- events to measure can now be specified on the command line, e.g
prog +RTS -a+PAPI_TOT_CYC
Diffstat (limited to 'rts/Stats.c')
| -rw-r--r-- | rts/Stats.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/rts/Stats.c b/rts/Stats.c index 1127b81566..4bb9c8237e 100644 --- a/rts/Stats.c +++ b/rts/Stats.c @@ -347,7 +347,11 @@ stat_endGC (lnat alloc, lnat live, lnat copied, lnat gen) #if USE_PAPI if(papi_is_reporting) { /* Switch to counting mutator events */ - papi_stop_gc_count(); + if (gen == 0) { + papi_stop_gc0_count(); + } else { + papi_stop_gc1_count(); + } papi_start_mutator_count(); } #endif |