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

* gc.h: add scm_debug_cells_gc_interval to public interface

Browse source 
* gc-card.c ("sweep_card"): set scm_gc_running while sweeping.

* gc.c (scm_i_expensive_validation_check): separate expensive
validation checks from cheap ones.
This commit is contained in:
Han-Wen Nienhuys 2002-08-08 19:47:31 +00:00
parent 00706edc1d
commit eab1b25970
12 changed files with 179 additions and 105 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/gc-segment.c
View file

@ -546,6 +546,7 @@ scm_i_get_new_heap_segment (scm_t_cell_type_statistics *freelist, policy_on_erro
}
void
scm_i_make_initial_segment (size_t init_heap_size, scm_t_cell_type_statistics *freelist)
{
@ -568,4 +569,3 @@ scm_i_make_initial_segment (size_t init_heap_size, scm_t_cell_type_statistics *f
freelist->min_yield = (freelist->heap_size * freelist->min_yield_fraction
/ 100);
}