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

* gc-card.c (scm_i_card_statistics): Return if BITVEC is NULL.

Browse source 
This was typically hit when running `gc-live-object-stats' right
after starting Guile.
This commit is contained in:
Neil Jerram 2005-12-06 19:15:16 +00:00
parent aa1babce68
commit 9fb5c8f95c
2 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/ChangeLog
View file

@ -1,3 +1,9 @@
2005-12-06 Ludovic Courtès <ludovic.courtes@laas.fr>
* gc-card.c (scm_i_card_statistics): Return if BITVEC is NULL.
This was typically hit when running `gc-live-object-stats' right
after starting Guile.
2005-11-30 Kevin Ryde <user42@zip.com.au> 2005-11-30 Kevin Ryde <user42@zip.com.au>
* srfi-13.c (scm_string_append_shared): No copying if just one * srfi-13.c (scm_string_append_shared): No copying if just one

4
libguile/gc-card.c
View file

@ -306,6 +306,10 @@ scm_i_card_statistics (scm_t_cell *p, SCM hashtab, scm_t_heap_segment *seg)
int span = seg->span; int span = seg->span;
int offset = SCM_MAX (SCM_GC_CARD_N_HEADER_CELLS, span); int offset = SCM_MAX (SCM_GC_CARD_N_HEADER_CELLS, span);
if (!bitvec)
/* Card P hasn't been initialized yet by `scm_i_init_card_freelist ()'. */
return;
for (p += offset; p < end; p += span, offset += span) for (p += offset; p < end; p += span, offset += span)
{ {
scm_t_bits tag = -1; scm_t_bits tag = -1;