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; cx->sweep = sweep;
return sweep < limit; return to_reclaim < 128;
} }
static void* allocate_large(struct context *cx, enum alloc_kind kind, static void* allocate_large(struct context *cx, enum alloc_kind kind,