X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FMBlock.c;h=1b9873433d405fadbb7bd0f0114f9a9b30082ec9;hb=13359d474c482d4641cc0f54d81cb0423fd6ab75;hp=54d414807a1963005db95e4326f3226a62b57eef;hpb=51a1bbab96f8795701fc59d295a5f556cfbf5622;p=ghc-hetmet.git

diff --git a/rts/sm/MBlock.c b/rts/sm/MBlock.c
index 54d4148..1b98734 100644
--- a/rts/sm/MBlock.c
+++ b/rts/sm/MBlock.c
@@ -42,6 +42,7 @@
 #include <windows.h>
 #endif
 #if darwin_HOST_OS
+#include <mach/mach.h>
 #include <mach/vm_map.h>
 #endif
 
@@ -200,7 +201,7 @@ my_mmap (void *addr, lnat size)
 	errorBelch("memory allocation failed (requested %lu bytes)", size);
 	stg_exit(EXIT_FAILURE);
     } else {
-	vm_protect(mach_task_self(),ret,size,FALSE,VM_PROT_READ|VM_PROT_WRITE);
+	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,