diff options
author | Simon Marlow <marlowsd@gmail.com> | 2010-11-01 12:41:43 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2010-11-01 12:41:43 +0000 |
commit | cc65b3682b688fb510e6458b4e4c4504430393db (patch) | |
tree | 07432a0492d76e870e880fea673ca9ed25c86f57 /rts/Sparks.c | |
parent | d63ba79a6dde7a5616d3b532589ff09d3820f794 (diff) | |
download | haskell-cc65b3682b688fb510e6458b4e4c4504430393db.tar.gz |
count "dud" sparks (expressions that were already evaluated when sparked)
Diffstat (limited to 'rts/Sparks.c')
-rw-r--r-- | rts/Sparks.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/rts/Sparks.c b/rts/Sparks.c index 7e2556d976..2498cb3dd0 100644 --- a/rts/Sparks.c +++ b/rts/Sparks.c @@ -71,9 +71,10 @@ newSpark (StgRegTable *reg, StgClosure *p) if (closure_SHOULD_SPARK(p)) { pushWSDeque(pool,p); - } - - cap->sparks_created++; + cap->sparks_created++; + } else { + cap->sparks_dud++; + } return 1; } |