suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Abort if munmap or protect_pages fails

Browse Source 
On Linux, munmap can fail when you run out of mappable regions.

If protect_pages fails, then you can't install a write barrier
This commit is contained in:
Jay McCarthy 2017-05-25 13:38:33 -04:00
parent cc25a27f87
commit 07f35d248c
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/src/racket/gc2/vm_mmap.c
View File

@ -19,6 +19,7 @@ static void os_free_pages(void *p, size_t len)
{
if (munmap(p, len)) {
GCPRINT(GCOUTF, "unmap failed: %lx, %ld, %d\n", (long)p, (long)len, errno);
abort();
}
}
@ -51,8 +52,10 @@ static void *os_alloc_pages(size_t len)
static void os_protect_pages(void *p, size_t len, int writeable)
{
if (mprotect(p, len, (writeable ? (PROT_READ | PROT_WRITE) : PROT_READ)))
if (mprotect(p, len, (writeable ? (PROT_READ | PROT_WRITE) : PROT_READ))) {
GCPRINT(GCOUTF, "mprotect failed: %lx, %ld, %d, %d\n", (long)p, (long)len, writeable, errno);
abort();
}
}
#include "rlimit_heapsize.c"

1
racket/src/racket/gc2/vm_osx.c
View File

@ -219,6 +219,7 @@ static void os_protect_pages(void *p, size_t len, int writeable)
if(retval != KERN_SUCCESS) {
GCPRINT(GCOUTF, "WARNING: couldn't protect %li bytes of page %p%s\n",
len, p, mach_error_string(retval));
abort();
}
}