projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
224a7fa
)
Fix OS X warnings
author
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Thu, 6 Sep 2007 00:48:31 +0000
(
00:48
+0000)
committer
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Thu, 6 Sep 2007 00:48:31 +0000
(
00:48
+0000)
rts/sm/MBlock.c
patch
|
blob
|
history
diff --git
a/rts/sm/MBlock.c
b/rts/sm/MBlock.c
index
54d4148
..
1b98734
100644
(file)
--- 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,