diff options
author | Han-Wen Nienhuys <hanwen@lilypond.org> | 2006-02-14 11:38:30 +0000 |
---|---|---|
committer | Han-Wen Nienhuys <hanwen@lilypond.org> | 2006-02-14 11:38:30 +0000 |
commit | 4c7016dc06525c7910ce6c99d97eb9c52c6b43e4 (patch) | |
tree | 596b824412bf39911e8388ba60e85eba5029e817 /libguile/gc-freelist.c | |
parent | b712c10755ad4304f6352a32ec607c8fad1a61a9 (diff) | |
download | guile-4c7016dc06525c7910ce6c99d97eb9c52c6b43e4.tar.gz |
Ludovic's patch for scm_t_sweep_statistics.
Diffstat (limited to 'libguile/gc-freelist.c')
-rw-r--r-- | libguile/gc-freelist.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/libguile/gc-freelist.c b/libguile/gc-freelist.c index 8bf3cc6d1..7a144c228 100644 --- a/libguile/gc-freelist.c +++ b/libguile/gc-freelist.c @@ -78,7 +78,8 @@ SCM_DEFINE (scm_gc_set_debug_check_freelist_x, "gc-set-debug-check-freelist!", 1 */ void -scm_i_adjust_min_yield (scm_t_cell_type_statistics *freelist) +scm_i_adjust_min_yield (scm_t_cell_type_statistics *freelist, + scm_t_sweep_statistics sweep_stats) { /* min yield is adjusted upwards so that next predicted total yield * (allocated cells actually freed by GC) becomes @@ -98,7 +99,7 @@ scm_i_adjust_min_yield (scm_t_cell_type_statistics *freelist) { /* Pick largest of last two yields. */ long delta = ((SCM_HEAP_SIZE * freelist->min_yield_fraction / 100) - - (long) SCM_MAX (scm_gc_cells_collected_1, scm_gc_cells_collected)); + - (long) sweep_stats.collected); #ifdef DEBUGINFO fprintf (stderr, " after GC = %lu, delta = %ld\n", (unsigned long) scm_cells_allocated, |