summaryrefslogtreecommitdiff
path: root/rts/win32
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2022-05-10 13:56:02 -0400
committerMarge Bot <ben+marge-bot@smart-cactus.org>2022-05-11 20:06:51 -0400
commitdea9a3d90d657705be073fd4e0db64e76d717a0f (patch)
tree006ae2d973161752ececd14a624efefb7446a6d2 /rts/win32
parent3c998f0d5f91742f0474e0eb76082e069ecb0cf4 (diff)
downloadhaskell-dea9a3d90d657705be073fd4e0db64e76d717a0f.tar.gz
rts: Drop setExecutable
Since f6e366c058b136f0789a42222b8189510a3693d1 setExecutable has been dead code. Drop it.
Diffstat (limited to 'rts/win32')
-rw-r--r--rts/win32/OSMem.c13
1 files changed, 0 insertions, 13 deletions
diff --git a/rts/win32/OSMem.c b/rts/win32/OSMem.c
index c192fb5923..4c643a97c2 100644
--- a/rts/win32/OSMem.c
+++ b/rts/win32/OSMem.c
@@ -423,19 +423,6 @@ StgWord64 getPhysicalMemorySize (void)
return physMemSize;
}
-void setExecutable (void *p, W_ len, bool exec)
-{
- DWORD dwOldProtect = 0;
- if (VirtualProtect (p, len,
- exec ? PAGE_EXECUTE_READWRITE : PAGE_READWRITE,
- &dwOldProtect) == 0)
- {
- sysErrorBelch("setExecutable: failed to protect 0x%p; old protection: "
- "%lu\n", p, (unsigned long)dwOldProtect);
- stg_exit(EXIT_FAILURE);
- }
-}
-
#if defined(USE_LARGE_ADDRESS_SPACE)
static void* heap_base = NULL;