Import Upstream version 20180207
[hcoop/debian/mlton.git] / runtime / platform / mmap.c
1 static inline void *mmapAnon (void *start, size_t length) {
2 return mmap (start, length, PROT_READ | PROT_WRITE,
3 MAP_PRIVATE | MAP_ANON, -1, 0);
4 }
5
6 static void munmap_safe (void *base, size_t length) {
7 assert (base != NULL);
8 if (0 == length)
9 return;
10 if (0 != munmap (base, length))
11 diee ("munmap failed");
12 }