mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Heap growth can compete with lospace for nofl blocks

Browse source
This commit is contained in:
Andy Wingo 2024-09-16 13:40:09 +02:00
parent 317039d952
commit 1bf250f62a
2 changed files with 6 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/mmc.c
View file

@ -395,7 +395,12 @@ heap_reset_large_object_pages(struct gc_heap *heap, size_t npages) {
GC_ASSERT(npages <= previous);
size_t bytes = (previous - npages) <<
heap_large_object_space(heap)->page_size_log2;
nofl_space_reacquire_memory(heap_nofl_space(heap), bytes);
// If heap size is fixed, we won't need to allocate any more nofl blocks, as
// nothing uses paged-out blocks except large object allocation. But if the
// heap can grow, growth can consume nofl-space blocks that were paged out to
// allow for lospace allocations, which means that here we may need to
// allocate additional slabs.
nofl_space_expand(heap_nofl_space(heap), bytes);
}
static void

6
src/nofl-space.h
View file

@ -1291,12 +1291,6 @@ nofl_space_maybe_reacquire_memory(struct nofl_space *space, size_t bytes) {
return pending;
}
static void
nofl_space_reacquire_memory(struct nofl_space *space, size_t bytes) {
ssize_t pending = nofl_space_maybe_reacquire_memory(space, bytes);
GC_ASSERT(pending + NOFL_BLOCK_SIZE > 0);
}
static int
nofl_space_sweep_until_memory_released(struct nofl_space *space,
struct nofl_allocator *alloc) {