X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fruntime%2Fstorage%2FSMstatic.lc;h=73558937fd51600006d185ed9eccb311ff8d3f68;hp=2f953f135a2286a3d09421cca7e9674aca3be5b6;hb=10521d8418fd3a1cf32882718b5bd28992db36fd;hpb=7fa716e248a1f11fa686965f57aebbb83b74fa7b

diff --git a/ghc/runtime/storage/SMstatic.lc b/ghc/runtime/storage/SMstatic.lc
index 2f953f1..7355893 100644
--- 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}