[project @ 1997-05-18 03:54:56 by sof]

[ghc-hetmet.git] / ghc / runtime / storage / mprotect.lc

diff --git a/ghc/runtime/storage/mprotect.lc b/ghc/runtime/storage/mprotect.lc
index 96bd44b..316572d 100644 (file)
--- a/ghc/runtime/storage/mprotect.lc
+++ b/ghc/runtime/storage/mprotect.lc
@@ -49,6 +49,11 @@ int getpagesize PROTO((void));
 int mprotect PROTO((caddr_t, size_t, int));
 #endif
 
+#if defined(aix_TARGET_OS)
+/* PROT_NONE doesn't work on aix, PROT_READ works and should suit the job */
+#define PROT_NONE PROT_READ
+#endif
+ 
 /* Needed for FreeBSD (SDM, 96/03) */
 #ifndef PROT_NONE
 #define PROT_NONE 0