mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Fix the debug fix

Browse source
This commit is contained in:
Andy Wingo 2023-11-06 22:06:51 +01:00
parent c4396a4214
commit 5ad83e49e1
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/whippet.c
View file

@ -1862,7 +1862,7 @@ static void collect(struct gc_mutator *mut,
double yield = heap_last_gc_yield(heap);
double fragmentation = heap_fragmentation(heap);
HEAP_EVENT(heap, live_data_size, heap->size * (1 - yield));
DEBUG(stderr, "last gc yield: %f; fragmentation: %f\n", yield, fragmentation);
DEBUG("last gc yield: %f; fragmentation: %f\n", yield, fragmentation);
detect_out_of_memory(heap);
trace_pinned_roots_after_stop(heap);
prepare_for_evacuation(heap);