count "dud" sparks (expressions that were already evaluated when sparked)

[ghc-hetmet.git] / rts / Capability.h

diff --git a/rts/Capability.h b/rts/Capability.h
index a15ce15..e50dba3 100644 (file)
--- a/rts/Capability.h
+++ b/rts/Capability.h
@@ -99,6 +99,7 @@ struct Capability_ {
 
     // Stats on spark creation/conversion
     nat sparks_created;
+    nat sparks_dud;
     nat sparks_converted;
     nat sparks_pruned;
 #endif