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 861b67f4a5ea..42ae4a184860 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),
--
GitLab