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

Bugfix to mark-sweep

Browse source 
Before this, the last sweep would cause premature gc
This commit is contained in:
Andy Wingo 2022-03-13 21:45:20 +01:00
parent fddd4d9416
commit a693c4ea8a
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
mark-sweep.h
View file

@ -306,7 +306,7 @@ static int sweep(struct context *cx) {
}
cx->sweep = sweep;
return sweep < limit;
return to_reclaim < 128;
}
static void* allocate_large(struct context *cx, enum alloc_kind kind,