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/Stats.c | |
| parent | d63ba79a6dde7a5616d3b532589ff09d3820f794 (diff) | |
| download | haskell-cc65b3682b688fb510e6458b4e4c4504430393db.tar.gz | |
count "dud" sparks (expressions that were already evaluated when sparked)
Diffstat (limited to 'rts/Stats.c')
| -rw-r--r-- | rts/Stats.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/rts/Stats.c b/rts/Stats.c index e519c940af..a507147fde 100644 --- a/rts/Stats.c +++ b/rts/Stats.c @@ -636,16 +636,18 @@ stat_exit(int alloc) { nat i; lnat sparks_created = 0; + lnat sparks_dud = 0; lnat sparks_converted = 0; lnat sparks_pruned = 0; for (i = 0; i < n_capabilities; i++) { sparks_created += capabilities[i].sparks_created; + sparks_dud += capabilities[i].sparks_dud; sparks_converted += capabilities[i].sparks_converted; sparks_pruned += capabilities[i].sparks_pruned; } - statsPrintf(" SPARKS: %ld (%ld converted, %ld pruned)\n\n", - sparks_created, sparks_converted, sparks_pruned); + statsPrintf(" SPARKS: %ld (%ld converted, %ld dud, %ld pruned)\n\n", + sparks_created + sparks_dud, sparks_converted, sparks_dud, sparks_pruned); } #endif |