projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7b6d2eb
)
[project @ 1997-03-14 04:59:18 by sof]
author
sof
<unknown>
Fri, 14 Mar 1997 04:59:18 +0000
(
04:59
+0000)
committer
sof
<unknown>
Fri, 14 Mar 1997 04:59:18 +0000
(
04:59
+0000)
Nil_closure renamed
ghc/runtime/main/StgStartup.lhc
patch
|
blob
|
history
diff --git
a/ghc/runtime/main/StgStartup.lhc
b/ghc/runtime/main/StgStartup.lhc
index
32382b6
..
0b74e37
100644
(file)
--- a/
ghc/runtime/main/StgStartup.lhc
+++ b/
ghc/runtime/main/StgStartup.lhc
@@
-363,7
+363,7
@@
STGFUN(ErrorIO_innards)
*SpA = (P_) WorldStateToken_closure;
*SpA = (P_) WorldStateToken_closure;
- STKO_LINK(StkOReg) = Prelude_Z91Z93_closure;
+ STKO_LINK(StkOReg) = PrelBase_Z91Z93_closure;
STKO_RETURN(StkOReg) = NULL;
#ifdef TICKY_TICKY
STKO_RETURN(StkOReg) = NULL;
#ifdef TICKY_TICKY
@@
-604,14
+604,15
@@
STGFUN(startCcRegisteringWorld)
JMP_(_regMain);
FE_
}
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()
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
\end{code}
We also need cost centre declarations and registering routines for other