mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-10 15:50:50 +02:00
Code Activity

Compute GC yield as fraction of total heap size

Browse source
This commit is contained in:
Andy Wingo 2022-07-18 14:22:23 +02:00
parent c998f1cd5c
commit 09d2df1626
2 changed files with 17 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
large-object-space.h
View file

@ -29,6 +29,7 @@ struct large_object_space {
size_t total_pages;
size_t free_pages;
size_t live_pages_at_last_collection;
size_t pages_freed_by_last_collection;
struct address_set from_space;
struct address_set to_space;
@ -125,7 +126,9 @@ static void large_object_space_finish_gc(struct large_object_space *space) {
address_set_for_each(&space->from_space, large_object_space_reclaim_one,
space);
address_set_clear(&space->from_space);
space->free_pages = space->total_pages - space->live_pages_at_last_collection;
size_t free_pages = space->total_pages - space->live_pages_at_last_collection;
space->pages_freed_by_last_collection = free_pages - space->free_pages;
space->free_pages = free_pages;
pthread_mutex_unlock(&space->lock);
}