diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2022-05-10 13:56:02 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2022-05-10 13:57:22 -0400 |
| commit | 1c035066980e67aff369fee2f6699fcb9592dfd9 (patch) | |
| tree | 1f9100dd5bfc2a67507cd7b4d8f2cd1d80e30e70 /rts/posix/OSMem.c | |
| parent | 67072c31d8b6ce4f0de79fa52bc3e5cdd5a495c6 (diff) | |
| download | haskell-wip/T18376.tar.gz | |
rts: Drop setExecutablewip/T18376
Since f6e366c058b136f0789a42222b8189510a3693d1 setExecutable has been
dead code. Drop it.
Diffstat (limited to 'rts/posix/OSMem.c')
| -rw-r--r-- | rts/posix/OSMem.c | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/rts/posix/OSMem.c b/rts/posix/OSMem.c index 822546d5d1..e08dfca8b6 100644 --- a/rts/posix/OSMem.c +++ b/rts/posix/OSMem.c @@ -455,21 +455,6 @@ StgWord64 getPhysicalMemorySize (void) return physMemSize; } -void setExecutable (void *p, W_ len, bool exec) -{ - StgWord pageSize = getPageSize(); - - /* malloced memory isn't executable by default on OpenBSD */ - StgWord mask = ~(pageSize - 1); - StgWord startOfFirstPage = ((StgWord)p ) & mask; - StgWord startOfLastPage = ((StgWord)p + len - 1) & mask; - StgWord size = startOfLastPage - startOfFirstPage + pageSize; - if (mprotect((void*)startOfFirstPage, (size_t)size, - (exec ? PROT_EXEC : 0) | PROT_READ | PROT_WRITE) != 0) { - barf("setExecutable: failed to protect 0x%p\n", p); - } -} - #if defined(USE_LARGE_ADDRESS_SPACE) static void * |