X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FCapability.c;h=bffb7356127700cd21f5066bc27563c89b60b7ba;hb=3cdef7b150e17fe6512ff33858a720a47d5adbe9;hp=345bd39c0fb9560a555d3bb32caf20241b4e1f21;hpb=d8334d807812e40f67770ffc37608c0ce66f96b2;p=ghc-hetmet.git

diff --git a/rts/Capability.c b/rts/Capability.c
index 345bd39..bffb735 100644
--- a/rts/Capability.c
+++ b/rts/Capability.c
@@ -225,8 +225,10 @@ 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;
+    cap->sparks_gcd         = 0;
+    cap->sparks_fizzled     = 0;
 #endif
 
     cap->f.stgEagerBlackholeInfo = (W_)&__stg_EAGER_BLACKHOLE_info;