From 65c206597417f0200ba0d56484632e15c4532789 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 24 Nov 1997 21:14:34 +0000
Subject: [PATCH] [project @ 1997-11-24 21:14:34 by sof] Mirror sequential
code, push realWorld# on B-stack before entering IO action
---
ghc/runtime/main/Threads.lc | 13 ++++++++-----
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/ghc/runtime/main/Threads.lc b/ghc/runtime/main/Threads.lc
index 51a48fbfa0ac..ce4178aa9519 100644
--- a/ghc/runtime/main/Threads.lc
+++ b/ghc/runtime/main/Threads.lc
@@ -175,10 +175,13 @@ I_ threadId = 0;
but slower than GUM sparks. There is no fixed upper bound on the
number of GRAN sparks either. -- HWL
*/
-#if !defined(GRAN)
+#if defined(PAR)
+
+I_ sparksIgnored =0, sparksCreated = 0;
-I_ sparksIgnored =0;
+#endif
+#if defined(CONCURRENT) && !defined(GRAN)
I_ SparkLimit[SPARK_POOLS];
rtsBool
@@ -198,7 +201,7 @@ initThreadPools(STG_NO_ARGS)
return rtsTrue;
}
-#endif /* !GRAN */
+#endif
#ifdef PAR
rtsBool sameThread;
@@ -2564,8 +2567,8 @@ W_ type;
#endif
if (type == T_MAIN) {
- STKO_SpA(stko) -= AREL(1);
- *STKO_SpA(stko) = (P_) realWorldZh_closure;
+ STKO_SpB(stko) -= BREL(1);
+ *STKO_SpB(stko) = (P_) realWorldZh_closure;
}
SAVE_Ret = (StgRetAddr) UNVEC(stopThreadDirectReturn,vtbl_stopStgWorld);
--
GitLab