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

lospace: Fix bug when splitting freelist entries

Browse source
This commit is contained in:
Andy Wingo 2025-01-23 17:22:29 +01:00
parent 7a5c994613
commit 7049871484
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/large-object-space.h
View file

@ -429,6 +429,9 @@ large_object_space_alloc(struct large_object_space *space, size_t npages) {
struct large_object_node *tail_node =
large_object_tree_insert(&space->object_tree, tail, tail_value);
pthread_mutex_unlock(&space->object_tree_lock);
uintptr_t tail_node_bits = (uintptr_t)tail_node;
address_map_add(&space->object_map, tail_node->key.addr,
tail_node_bits);
large_object_space_add_to_freelist(space, tail_node);
}