[project @ 1997-11-24 21:16:23 by sof]

Only expose sparksIgnored and sparksCreated vars for GUM/GranSim

[project @ 1997-11-24 21:16:23 by sof]
Only expose sparksIgnored and sparksCreated vars for GUM/GranSim
c9e50308 · sof · 71ece493 · c9e50308
Commit c9e50308 authored 27 years ago by sof
--- a/ghc/includes/Threads.lh
+++ b/ghc/includes/Threads.lh
@@ -82,7 +82,9 @@ extern I_ SparkLimit[SPARK_POOLS];
 extern P_ RunnableThreadsHd, RunnableThreadsTl;
 extern P_ WaitingThreadsHd, WaitingThreadsTl;

-extern I_ sparksIgnored;
+#if defined(PAR) 
+extern I_ sparksIgnored, sparksCreated;
+#endif

 IF_RTS(extern void AwaitEvent(I_);)