[project @ 1997-11-24 21:17:52 by sof]

COUNT_SPARK: accumulate sparksCreated

[project @ 1997-11-24 21:17:52 by sof]
COUNT_SPARK: accumulate sparksCreated
65c04022 · sof · c9e50308 · 65c04022
Commit 65c04022 authored 27 years ago by sof
--- a/ghc/includes/StgMacros.lh
+++ b/ghc/includes/StgMacros.lh
@@ -1981,7 +1981,7 @@ ED_(True_closure);
 extern I_ required_thread_count;

 #ifdef PAR
-#define COUNT_SPARK     TSO_GLOBALSPARKS(CurrentTSO)++
+#define COUNT_SPARK     TSO_GLOBALSPARKS(CurrentTSO)++; sparksCreated++
 #else
 #define COUNT_SPARK
 #endif