From c9e503087d995b5b0404560f63a3f2e0cb33e218 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 24 Nov 1997 21:16:23 +0000
Subject: [PATCH] [project @ 1997-11-24 21:16:23 by sof] Only expose
 sparksIgnored and sparksCreated vars for GUM/GranSim

---
 ghc/includes/Threads.lh | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ghc/includes/Threads.lh b/ghc/includes/Threads.lh
index 48e10efd92c1..a8d2e8d6380c 100644
--- 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_);)
 
-- 
GitLab