1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00

Fix race in large object space when counting live object pages

Embarrassing!
This commit is contained in:
Andy Wingo 2025-03-07 13:25:47 +01:00
parent ed5db9bc36
commit 3db1e48ea6

View file

@ -212,7 +212,7 @@ large_object_space_mark(struct large_object_space *space, struct gc_ref ref) {
memory_order_acquire));
size_t pages = node->key.size >> space->page_size_log2;
space->live_pages_at_last_collection += pages;
atomic_fetch_add(&space->live_pages_at_last_collection, pages);
return 1;
}