From 65c040229b4e6a8b21aa9664125540fb14edc108 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 24 Nov 1997 21:17:52 +0000
Subject: [PATCH] [project @ 1997-11-24 21:17:52 by sof] COUNT_SPARK:
 accumulate sparksCreated

---
 ghc/includes/StgMacros.lh | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/includes/StgMacros.lh b/ghc/includes/StgMacros.lh
index c612a12de789..634d81a5081a 100644
--- 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
-- 
GitLab