summaryrefslogtreecommitdiff
path: root/rts/ExecPage.c
diff options
context:
space:
mode:
authorGHC GitLab CI <ghc-ci@gitlab-haskell.org>2022-01-28 22:33:52 -0500
committerMarge Bot <ben+marge-bot@smart-cactus.org>2022-02-06 01:43:56 -0500
commit86589b893c092ae900723e76848525f20f6cafbf (patch)
tree3a77beccb4db660a3212e0aef7b330d91effa3b7 /rts/ExecPage.c
parent2e9248b7f7f645851ceb49931d10b9c5e58d2bbb (diff)
downloadhaskell-86589b893c092ae900723e76848525f20f6cafbf.tar.gz
rts: Generalize mmapForLinkerMarkExecutable
Renamed to mprotectForLinker and allowed setting of arbitrary protection modes.
Diffstat (limited to 'rts/ExecPage.c')
-rw-r--r--rts/ExecPage.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/ExecPage.c b/rts/ExecPage.c
index 6f5b6e281a..24d4d65bad 100644
--- a/rts/ExecPage.c
+++ b/rts/ExecPage.c
@@ -15,7 +15,7 @@ ExecPage *allocateExecPage() {
}
void freezeExecPage(ExecPage *page) {
- mmapForLinkerMarkExecutable(page, getPageSize());
+ mprotectForLinker(page, getPageSize(), MEM_READ_EXECUTE);
flushExec(getPageSize(), page);
}