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

disable gc statistics asserts

Browse source 
* libguile/gc.c: Disable the statistics asserts; see
  http://thread.gmane.org/gmane.lisp.guile.devel/7505
This commit is contained in:
Andy Wingo 2008-08-26 13:29:55 -07:00
parent fdc0a82263
commit 05ddc073c3
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/gc.c
View file

@ -601,12 +601,14 @@ scm_i_gc (const char *what)
/* If this was not true, someone touched mark bits outside of the
mark phase. */
#if 0
assert (scm_cells_allocated == scm_i_marked_count ());
assert (scm_i_gc_sweep_stats.swept
== (scm_i_master_freelist.heap_total_cells
+ scm_i_master_freelist2.heap_total_cells));
assert (scm_i_gc_sweep_stats.collected + scm_cells_allocated
== scm_i_gc_sweep_stats.swept);
#endif
/* Mark */
scm_c_hook_run (&scm_before_mark_c_hook, 0);