From 97afd5df244251fdba584794ddf787aa134bc034 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 13 Mar 1997 07:58:17 +0000
Subject: [PATCH] [project @ 1997-03-13 07:57:25 by sof] Andre\'s AIX fix for
const
---
ghc/includes/SMClosures.lh | 4 ++++
ghc/includes/SMInfoTables.lh | 4 ++++
2 files changed, 8 insertions(+)
diff --git a/ghc/includes/SMClosures.lh b/ghc/includes/SMClosures.lh
index 58e190749b0b..3d57a018e4a6 100644
--- a/ghc/includes/SMClosures.lh
+++ b/ghc/includes/SMClosures.lh
@@ -1067,7 +1067,11 @@ closures indexed by literal characters. As with @CONST@ closures,
#define CHARLIKE_CLOSURE_NoNONPTRS(closure) (1L)
/* Array of static charlike closures */
+#ifndef aix_TARGET_OS /* AIX gives link errors with consts in this file (RO assembler section) */
extern const W_ CHARLIKE_closures[];
+#else
+extern W_ CHARLIKE_closures[];
+#endif
/* Macro to retrieve static charlike closure */
#define CHARLIKE_CLOSURE(the_char) \
diff --git a/ghc/includes/SMInfoTables.lh b/ghc/includes/SMInfoTables.lh
index 674444da878b..bcc65eb0bc55 100644
--- a/ghc/includes/SMInfoTables.lh
+++ b/ghc/includes/SMInfoTables.lh
@@ -1746,7 +1746,11 @@ during a return.
/* Declare the phantom info table vectors (just Bool at the moment) */
#ifndef COMPILING_GHC
+#ifndef aix_TARGET_OS /* AIX gives link errors with this as a const (RO assembler section) */
EXTDATA_RO(PrelBase_Bool_itblvtbl);
+#else
+extern W_ PrelBase_Bool_itblvtbl[];
+#endif
#endif
\end{code}
--
GitLab