From 3aa6eac7b48069ebc9410e0168d5f68cb8142e14 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 14 Mar 1997 04:59:18 +0000
Subject: [PATCH] [project @ 1997-03-14 04:59:18 by sof] Nil_closure renamed
---
ghc/runtime/main/StgStartup.lhc | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/ghc/runtime/main/StgStartup.lhc b/ghc/runtime/main/StgStartup.lhc
index 32382b66bda8..0b74e377698a 100644
--- a/ghc/runtime/main/StgStartup.lhc
+++ b/ghc/runtime/main/StgStartup.lhc
@@ -363,7 +363,7 @@ STGFUN(ErrorIO_innards)
*SpA = (P_) WorldStateToken_closure;
- STKO_LINK(StkOReg) = Prelude_Z91Z93_closure;
+ STKO_LINK(StkOReg) = PrelBase_Z91Z93_closure;
STKO_RETURN(StkOReg) = NULL;
#ifdef TICKY_TICKY
@@ -604,14 +604,15 @@ STGFUN(startCcRegisteringWorld)
JMP_(_regMain);
FE_
}
-
-CC_DECLARE(CC_CAFs, "CAFs_in_...", "PRELUDE", "PRELUDE", CC_IS_CAF,/*not static*/);
-CC_DECLARE(CC_DICTs, "DICTs_in_...", "PRELUDE", "PRELUDE", CC_IS_DICT,/*not static*/);
+/* SOF: Prelude supplies these for you
+CC_DECLARE(CC_CAFs, "CAFs_in_...", "PRELUDE", "PRELUDE", CC_IS_CAF,*not static*);
+CC_DECLARE(CC_DICTs, "DICTs_in_...", "PRELUDE", "PRELUDE", CC_IS_DICT,*not static*);
START_REGISTER_PRELUDE(_regPrelude);
REGISTER_CC(CC_CAFs);
REGISTER_CC(CC_DICTs);
END_REGISTER_CCS()
+*/
\end{code}
We also need cost centre declarations and registering routines for other
--
GitLab