projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
[project @ 1997-11-24 21:17:52 by sof]
[ghc-hetmet.git]
/
ghc
/
includes
/
StgMacros.lh
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