[project @ 1998-05-15 15:37:25 by simonm]

[ghc-hetmet.git] / ghc / includes / Threads.lh

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_);)