[project @ 1996-07-19 18:36:04 by partain]

[ghc-hetmet.git] / ghc / runtime / storage / SMstatic.lc

diff --git a/ghc/runtime/storage/SMstatic.lc b/ghc/runtime/storage/SMstatic.lc
index 2f953f1..96400af 100644 (file)
--- a/ghc/runtime/storage/SMstatic.lc
+++ b/ghc/runtime/storage/SMstatic.lc
@@ -4,21 +4,22 @@
 
 ***************************************************************************
 
-@CZh_entry@, @CZh_static_info@, @IZh_entry@ and @IZh_static_info@ 
+@Prelude_CZh_entry@, @Prelude_CZh_static_info@, @Prelude_IZh_entry@ and @Prelude_IZh_static_info@ 
 are built by the compiler from {\tr uTys.hs}.
 
 \begin{code}
 #define NULL_REG_MAP
 #include "SMinternal.h"
 
-EXTDATA_RO(CZh_static_info);
+EXTDATA_RO(Prelude_CZh_static_info);
+EXTDATA_RO(Prelude_IZh_static_info);
 
 #define __CHARLIKE_CLOSURE(n) (CHARLIKE_closures+((n)*(CHARLIKE_HS+1)))
 #define __INTLIKE_CLOSURE(n)  (INTLIKE_closures_def+(((n)-MIN_INTLIKE)*(INTLIKE_HS+1)))
 
-#define CHARLIKE_HDR(n)            SET_STATIC_FIXED_HDR(__CHARLIKE_CLOSURE(n),CZh_static_info,CC_DONTZuCARE), (W_) n
+#define CHARLIKE_HDR(n)            SET_STATIC_FIXED_HDR(__CHARLIKE_CLOSURE(n),Prelude_CZh_static_info,CC_DONTZuCARE), (W_) n
 
-#define INTLIKE_HDR(n)     SET_STATIC_FIXED_HDR(__INTLIKE_CLOSURE(n),IZh_static_info,CC_DONTZuCARE), (W_) n
+#define INTLIKE_HDR(n)     SET_STATIC_FIXED_HDR(__INTLIKE_CLOSURE(n),Prelude_IZh_static_info,CC_DONTZuCARE), (W_) n
 
 const W_ CHARLIKE_closures[] = {
     CHARLIKE_HDR(0),
@@ -279,8 +280,6 @@ const W_ CHARLIKE_closures[] = {
     CHARLIKE_HDR(255)
 };
 
-EXTDATA_RO(IZh_static_info);
-
 static const W_ INTLIKE_closures_def[] = {
     INTLIKE_HDR(-16),  /* MIN_INTLIKE == -16 */
     INTLIKE_HDR(-15),
@@ -317,6 +316,6 @@ static const W_ INTLIKE_closures_def[] = {
     INTLIKE_HDR(16)    /* MAX_INTLIKE == 16 */
 };
 
-P_ INTLIKE_closures = (P_) __INTLIKE_CLOSURE(0);
+const P_ INTLIKE_closures = (const P_) __INTLIKE_CLOSURE(0);
 
 \end{code}