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/win32/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/win32/OSMem.c')
| -rw-r--r-- | rts/win32/OSMem.c | 13 |
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; |