From 7cf0b2974cac7a98a07a16f0785141b9277c095c Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 14 Mar 1997 01:56:33 +0000
Subject: [PATCH] [project @ 1997-03-14 01:56:33 by sof] AIX const changes

---
 ghc/runtime/storage/SMstatic.lc |   11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/ghc/runtime/storage/SMstatic.lc b/ghc/runtime/storage/SMstatic.lc
index 861b67f..42ae4a1 100644
--- a/ghc/runtime/storage/SMstatic.lc
+++ b/ghc/runtime/storage/SMstatic.lc
@@ -21,7 +21,10 @@ EXTDATA_RO(PrelBase_IZh_static_info);
 
 #define INTLIKE_HDR(n)	    SET_STATIC_FIXED_HDR(__INTLIKE_CLOSURE(n),PrelBase_IZh_static_info,CC_DONTZuCARE), (W_) n
 
-const W_ CHARLIKE_closures[] = {
+#ifndef aix_TARGET_OS /* AIX gives link errors with consts in this file (RO assembler section) */
+const 
+#endif
+      W_ CHARLIKE_closures[] = {
     CHARLIKE_HDR(0),
     CHARLIKE_HDR(1),
     CHARLIKE_HDR(2),
@@ -280,7 +283,11 @@ const W_ CHARLIKE_closures[] = {
     CHARLIKE_HDR(255)
 };
 
-static const W_ INTLIKE_closures_def[] = {
+static 
+#ifndef aix_TARGET_OS /* AIX gives link errors with consts in this file (RO assembler section) */
+       const 
+#endif
+             W_ INTLIKE_closures_def[] = {
     INTLIKE_HDR(-16),	/* MIN_INTLIKE == -16 */
     INTLIKE_HDR(-15),
     INTLIKE_HDR(-14),
-- 
1.7.10.4