summaryrefslogtreecommitdiff
path: root/libguile/gc.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2008-09-09 22:03:42 +0200
committerLudovic Courtès <ludo@gnu.org>2008-09-09 22:03:42 +0200
commit53f4876abcebf3f05d2a88bba3a898ddcda25a74 (patch)
tree7413b4f4ab565e4784f26ee347e2a1ff46ea467e /libguile/gc.c
parent69f23174d313650ca8fb0f69ede45c48d7a26b05 (diff)
parent242ebeaf083cc43a9df18ac4436178d9b3ff66e5 (diff)
downloadguile-53f4876abcebf3f05d2a88bba3a898ddcda25a74.tar.gz
Merge branch 'master' into strftime-gnulib
Conflicts: libguile/ChangeLog srfi/ChangeLog test-suite/ChangeLog
Diffstat (limited to 'libguile/gc.c')
-rw-r--r--libguile/gc.c6
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);