projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
cache bd->todo_bd->free and the limit in the workspace
[ghc-hetmet.git]
/
rts
/
Stats.c
diff --git
a/rts/Stats.c
b/rts/Stats.c
index
1127b81
..
4bb9c82
100644
(file)
--- 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