mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-13 17:20:21 +02:00
Code Activity

Add large object space to semi-space collector

Browse source
This commit is contained in:
Andy Wingo 2022-04-14 22:20:27 +02:00
parent 619a49ba41
commit 3315fc7477
2 changed files with 123 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

32
large-object-space.h
View file

@ -43,7 +43,7 @@ static int large_object_space_init(struct large_object_space *space,
struct heap *heap) {
pthread_mutex_init(&space->lock, NULL);
space->page_size = getpagesize();
space->page_size_log2 = __builtin_clz(space->page_size);
space->page_size_log2 = __builtin_ctz(space->page_size);
address_set_init(&space->from_space);
address_set_init(&space->to_space);
address_set_init(&space->free_space);
@ -52,6 +52,11 @@ static int large_object_space_init(struct large_object_space *space,
return 1;
}
static size_t large_object_space_npages(struct large_object_space *space,
size_t bytes) {
return (bytes + space->page_size - 1) >> space->page_size_log2;
}
static void large_object_space_start_gc(struct large_object_space *space) {
// Flip. Note that when we flip, fromspace is empty, but it might have
// allocated storage, so we do need to do a proper swap.
@ -156,12 +161,11 @@ static int large_object_space_best_fit(uintptr_t addr, void *data) {
return found->min_npages == npages;
}
static inline void* large_object_space_alloc(struct large_object_space *space,
size_t size) {
static void* large_object_space_alloc(struct large_object_space *space,
size_t npages) {
void *ret;
pthread_mutex_lock(&space->lock);
ret = NULL;
size_t npages = (size + space->page_size - 1) >> space->page_size_log2;
struct large_object_space_candidate found = { space, npages, 0, -1 };
address_set_find(&space->free_space, large_object_space_best_fit, &found);
if (found.addr) {
@ -185,4 +189,24 @@ static inline void* large_object_space_alloc(struct large_object_space *space,
return ret;
}
static void*
large_object_space_obtain_and_alloc(struct large_object_space *space,
size_t npages) {
size_t bytes = npages * space->page_size;
void *ret = mmap(NULL, bytes, PROT_READ|PROT_WRITE,
MAP_PRIVATE|MAP_ANONYMOUS, -1, 0);
if (ret == MAP_FAILED)
return NULL;
uintptr_t addr = (uintptr_t)ret;
pthread_mutex_lock(&space->lock);
address_map_add(&space->object_pages, addr, npages);
address_map_add(&space->predecessors, addr + bytes, addr);
address_set_add(&space->to_space, addr);
space->total_pages += npages;
pthread_mutex_unlock(&space->lock);
return ret;
}
#endif // LARGE_OBJECT_SPACE_H