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

nofl: Fix hole count / size computation for promoted blocks

Browse source
This commit is contained in:
Andy Wingo 2024-10-07 15:00:45 +02:00
parent cff99c75a8
commit ac016d5f83
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/nofl-space.h
View file

@ -1201,6 +1201,10 @@ static void
nofl_space_promote_blocks(struct nofl_space *space) { nofl_space_promote_blocks(struct nofl_space *space) {
struct nofl_block_ref block; struct nofl_block_ref block;
while (!nofl_block_is_null(block = nofl_block_list_pop(&space->promoted))) { while (!nofl_block_is_null(block = nofl_block_list_pop(&space->promoted))) {
block.summary->hole_count = 0;
block.summary->hole_granules = 0;
block.summary->holes_with_fragmentation = 0;
block.summary->fragmentation_granules = 0;
struct nofl_allocator alloc = { block.addr, block.addr, block }; struct nofl_allocator alloc = { block.addr, block.addr, block };
nofl_allocator_finish_sweeping_in_block(&alloc, space->sweep_mask); nofl_allocator_finish_sweeping_in_block(&alloc, space->sweep_mask);
atomic_fetch_add(&space->old_generation_granules, atomic_fetch_add(&space->old_generation_granules,