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/Capability.c | |
| parent | d63ba79a6dde7a5616d3b532589ff09d3820f794 (diff) | |
| download | haskell-cc65b3682b688fb510e6458b4e4c4504430393db.tar.gz | |
count "dud" sparks (expressions that were already evaluated when sparked)
Diffstat (limited to 'rts/Capability.c')
| -rw-r--r-- | rts/Capability.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/Capability.c b/rts/Capability.c index 345bd39c0f..9f7d1522a7 100644 --- a/rts/Capability.c +++ b/rts/Capability.c @@ -225,6 +225,7 @@ initCapability( Capability *cap, nat i ) cap->returning_tasks_tl = NULL; cap->inbox = (Message*)END_TSO_QUEUE; cap->sparks_created = 0; + cap->sparks_dud = 0; cap->sparks_converted = 0; cap->sparks_pruned = 0; #endif |