diff options
| author | Duncan Coutts <duncan@well-typed.com> | 2011-06-01 19:38:15 +0100 |
|---|---|---|
| committer | Duncan Coutts <duncan@well-typed.com> | 2011-07-18 16:31:14 +0100 |
| commit | 556557ebee2758acade603e25a8a16266dea791d (patch) | |
| tree | 30e93330fac8cec46f1241c6dba170ea6797f2e5 /rts/Sparks.c | |
| parent | ededf355981fd08f52b4fab256f231179848073f (diff) | |
| download | haskell-556557ebee2758acade603e25a8a16266dea791d.tar.gz | |
Use a struct for the set of spark counters
Diffstat (limited to 'rts/Sparks.c')
| -rw-r--r-- | rts/Sparks.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/rts/Sparks.c b/rts/Sparks.c index 5c78055e8c..d358ae6660 100644 --- a/rts/Sparks.c +++ b/rts/Sparks.c @@ -65,9 +65,9 @@ newSpark (StgRegTable *reg, StgClosure *p) if (!fizzledSpark(p)) { pushWSDeque(pool,p); - cap->sparks_created++; + cap->spark_stats.created++; } else { - cap->sparks_dud++; + cap->spark_stats.dud++; } return 1; @@ -173,7 +173,7 @@ pruneSparkQueue (Capability *cap) // evaluated, but it doesn't hurt to have this check for // robustness. pruned_sparks++; - cap->sparks_fizzled++; + cap->spark_stats.fizzled++; } else { info = spark->header.info; if (IS_FORWARDING_PTR(info)) { @@ -185,7 +185,7 @@ pruneSparkQueue (Capability *cap) n++; } else { pruned_sparks++; // discard spark - cap->sparks_fizzled++; + cap->spark_stats.fizzled++; } } else if (HEAP_ALLOCED(spark)) { if ((Bdescr((P_)spark)->flags & BF_EVACUATED)) { @@ -195,11 +195,11 @@ pruneSparkQueue (Capability *cap) n++; } else { pruned_sparks++; // discard spark - cap->sparks_fizzled++; + cap->spark_stats.fizzled++; } } else { pruned_sparks++; // discard spark - cap->sparks_gcd++; + cap->spark_stats.gcd++; } } else { if (INFO_PTR_TO_STRUCT(info)->type == THUNK_STATIC) { @@ -209,11 +209,11 @@ pruneSparkQueue (Capability *cap) n++; } else { pruned_sparks++; // discard spark - cap->sparks_gcd++; + cap->spark_stats.gcd++; } } else { pruned_sparks++; // discard spark - cap->sparks_fizzled++; + cap->spark_stats.fizzled++; } } } |