summaryrefslogtreecommitdiff
path: root/rts/Linker.c
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2022-02-07 19:56:22 -0500
committerMarge Bot <ben+marge-bot@smart-cactus.org>2022-02-09 20:43:39 -0500
commit4d3a306dce59649b303ac7aba56758aff3dee077 (patch)
treed61824b92ccd6074978b8e439d2405a8f9de0187 /rts/Linker.c
parent30e205ca1e8d78a538e0217e3cb07f13396900df (diff)
downloadhaskell-4d3a306dce59649b303ac7aba56758aff3dee077.tar.gz
rts/linker/MMap: Use MemoryAccess in mmapForLinker
Diffstat (limited to 'rts/Linker.c')
-rw-r--r--rts/Linker.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/rts/Linker.c b/rts/Linker.c
index fcba191249..a98f0bd2cb 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -1315,10 +1315,9 @@ preloadObjectFile (pathchar *path)
* See also the misalignment logic for darwin below.
*/
#if defined(darwin_HOST_OS) || defined(openbsd_HOST_OS)
- image = mmapForLinker(fileSize, PROT_READ|PROT_WRITE, MAP_PRIVATE, fd, 0);
+ image = mmapForLinker(fileSize, MEM_READ_WRITE, MAP_PRIVATE, fd, 0);
#else
- image = mmapForLinker(fileSize, PROT_READ|PROT_WRITE|PROT_EXEC,
- MAP_PRIVATE, fd, 0);
+ image = mmapForLinker(fileSize, MEM_READ_WRITE_EXECUTE, MAP_PRIVATE, fd, 0);
#endif
if (image == MAP_FAILED) {