projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6ed3621
)
[project @ 1997-03-14 01:56:33 by sof]
author
sof
<unknown>
Fri, 14 Mar 1997 01:56:33 +0000
(
01:56
+0000)
committer
sof
<unknown>
Fri, 14 Mar 1997 01:56:33 +0000
(
01:56
+0000)
AIX const changes
ghc/runtime/storage/SMstatic.lc
patch
|
blob
|
history
diff --git
a/ghc/runtime/storage/SMstatic.lc
b/ghc/runtime/storage/SMstatic.lc
index
861b67f
..
42ae4a1
100644
(file)
--- 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
#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),
CHARLIKE_HDR(0),
CHARLIKE_HDR(1),
CHARLIKE_HDR(2),
@@
-280,7
+283,11
@@
const W_ CHARLIKE_closures[] = {
CHARLIKE_HDR(255)
};
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),
INTLIKE_HDR(-16), /* MIN_INTLIKE == -16 */
INTLIKE_HDR(-15),
INTLIKE_HDR(-14),