diff options
Diffstat (limited to 'libguile/gc.c')
| -rw-r--r-- | libguile/gc.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/libguile/gc.c b/libguile/gc.c index a293400fa..a0b3080f7 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -597,8 +597,9 @@ scm_i_gc (const char *what) scm_i_sweep_all_segments ("GC", &scm_i_gc_sweep_stats); scm_check_deprecated_memory_return (); +#if (SCM_DEBUG_CELL_ACCESSES == 0 && SCM_SIZEOF_UNSIGNED_LONG ==4) /* Sanity check our numbers. */ - + /* TODO(hanwen): figure out why the stats are off on x64_64. */ /* If this was not true, someone touched mark bits outside of the mark phase. */ assert (scm_cells_allocated == scm_i_marked_count ()); @@ -607,7 +608,8 @@ scm_i_gc (const char *what) + scm_i_master_freelist2.heap_total_cells)); assert (scm_i_gc_sweep_stats.collected + scm_cells_allocated == scm_i_gc_sweep_stats.swept); - +#endif /* SCM_DEBUG_CELL_ACCESSES */ + /* Mark */ scm_c_hook_run (&scm_before_mark_c_hook, 0); |