[project @ 1997-06-09 07:22:58 by sof]

[ghc-hetmet.git] / ghc / includes / SMClosures.lh

diff --git a/ghc/includes/SMClosures.lh b/ghc/includes/SMClosures.lh
index 58e1907..37b642d 100644 (file)
--- 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) \
@@ -1102,7 +1106,7 @@ the same structure as a @SPEC_1_0@ closure.
 #define INTLIKE_CLOSURE_NoNONPTRS(closure)     (1L)
 
 /* Array of static intlike closures */
-extern P_ INTLIKE_closures;
+extern const P_ INTLIKE_closures;
 
 /* Range of static intlike closures MAX_INTLIKE, MIN_INTLIKE is in GhcConstants.lh */