From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 30 Sep 2008 14:18:42 +0000 (+0000)
Subject: Remover PROT_EXEC flag from mmap()
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=eb90092dad2a0b614d0aba5ed56d7d4eaf14b2ea

Remover PROT_EXEC flag from mmap()
Needed for #738 fix
---

diff --git a/rts/posix/OSMem.c b/rts/posix/OSMem.c
index 7216f0e..bdae273 100644
--- a/rts/posix/OSMem.c
+++ b/rts/posix/OSMem.c
@@ -112,8 +112,8 @@ my_mmap (void *addr, lnat size)
 	vm_protect(mach_task_self(),(vm_address_t)ret,size,FALSE,VM_PROT_READ|VM_PROT_WRITE);
     }
 #else
-    ret = mmap(addr, size, PROT_READ | PROT_WRITE | PROT_EXEC, 
-	       MAP_ANON | MAP_PRIVATE, -1, 0);
+    ret = mmap(addr, size, PROT_READ | PROT_WRITE, 
+               MAP_ANON | MAP_PRIVATE, -1, 0);
 #endif
 
     if (ret == (void *)-1) {