projects / ghc-hetmet.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: c9e5030)
[project @ 1997-11-24 21:17:52 by sof]
authorsof <unknown>
Mon, 24 Nov 1997 21:17:52 +0000 (21:17 +0000)
committersof <unknown>
Mon, 24 Nov 1997 21:17:52 +0000 (21:17 +0000)
COUNT_SPARK: accumulate sparksCreated

ghc/includes/StgMacros.lh patch | blob | history

diff --git a/ghc/includes/StgMacros.lh b/ghc/includes/StgMacros.lh
index c612a12..634d81a 100644 (file)
--- 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
Glasgow Haskell Compiler with heterogeneous metaprogramming (generalized arrows and modal types)