Commit 97afd5df authored by sof's avatar sof
Browse files

[project @ 1997-03-13 07:57:25 by sof]

Andre\'s AIX fix for const
parent 9a1d788d
......@@ -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) \
......
......@@ -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}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment