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

lospace: Add missing lock in allocation path

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

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

@ -425,8 +425,10 @@ large_object_space_alloc(struct large_object_space *space, size_t npages) {
struct large_object tail = {node->key.addr + size, node->key.size - size}; struct large_object tail = {node->key.addr + size, node->key.size - size};
struct large_object_data tail_value = {0,}; struct large_object_data tail_value = {0,};
node->key.size = size; node->key.size = size;
pthread_mutex_lock(&space->object_tree_lock);
struct large_object_node *tail_node = struct large_object_node *tail_node =
large_object_tree_insert(&space->object_tree, tail, tail_value); large_object_tree_insert(&space->object_tree, tail, tail_value);
pthread_mutex_unlock(&space->object_tree_lock);
large_object_space_add_to_freelist(space, tail_node); large_object_space_add_to_freelist(space, tail_node);
} }