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

shamefully disable some more gc asserts

Browse source 
* libguile/gc-freelist.c: Disable some more asserts. I have no idea why
  they're hitting, however.
This commit is contained in:
Andy Wingo 2008-08-27 17:19:41 -07:00
parent 72f7452826
commit e0b20b68b0
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/gc-freelist.c
View file

@ -178,9 +178,11 @@ scm_i_gc_heap_size_delta (scm_t_cell_type_statistics * freelist)
float swept = freelist->swept; float swept = freelist->swept;
float delta = ((f * swept - collected) / (1.0 - f)); float delta = ((f * swept - collected) / (1.0 - f));
#if 0
assert (freelist->heap_total_cells >= freelist->collected); assert (freelist->heap_total_cells >= freelist->collected);
assert (freelist->swept == freelist->heap_total_cells); assert (freelist->swept == freelist->heap_total_cells);
assert (swept >= collected); assert (swept >= collected);
#endif
return delta; return delta;
} }