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

Only expose sparksIgnored and sparksCreated vars for GUM/GranSim

diff --git a/ghc/includes/Threads.lh b/ghc/includes/Threads.lh
index 48e10ef..a8d2e8d 100644 (file)
--- 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_);)