diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-11-11 13:27:27 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-11-11 13:27:27 +0000 |
| commit | 52567e9d746db8c523885b9491b79302064b4bd8 (patch) | |
| tree | 0fca3fee64296f519d190100938588609e61f232 /rts/Sparks.c | |
| parent | cc65b3682b688fb510e6458b4e4c4504430393db (diff) | |
| download | haskell-52567e9d746db8c523885b9491b79302064b4bd8.tar.gz | |
count fizzled and GC'd sparks separately
Diffstat (limited to 'rts/Sparks.c')
| -rw-r--r-- | rts/Sparks.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/rts/Sparks.c b/rts/Sparks.c index 2498cb3dd0..857921260b 100644 --- a/rts/Sparks.c +++ b/rts/Sparks.c @@ -207,7 +207,7 @@ pruneSparkQueue (Capability *cap) n++; } else { pruned_sparks++; // discard spark - cap->sparks_pruned++; + cap->sparks_fizzled++; } } else if (HEAP_ALLOCED(spark) && (Bdescr((P_)spark)->flags & BF_EVACUATED)) { @@ -217,11 +217,11 @@ pruneSparkQueue (Capability *cap) n++; } else { pruned_sparks++; // discard spark - cap->sparks_pruned++; + cap->sparks_fizzled++; } } else { pruned_sparks++; // discard spark - cap->sparks_pruned++; + cap->sparks_gcd++; } currInd++; |