[project @ 1996-01-11 14:06:51 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..7355893 100644 (file)
--- a/ghc/runtime/storage/SMstatic.lc
+++ b/ghc/runtime/storage/SMstatic.lc
@@ -317,6 +317,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}