Re: [PATCH] Fixing `gc-live-object-stats'

[Ludovic Courtès]

Hi,

Neil Jerram <address@hidden> writes:

> Ludovic, if you can post the patch again, I'll commit it.

Thanks Neil, I appreciate your involvement.

Ludovic.


2005-11-17  Ludovic Courtès  <address@hidden>

        * 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.


--- orig/libguile/gc-card.c
+++ mod/libguile/gc-card.c
@@ -306,6 +306,10 @@
   int span = seg->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)
     {
       scm_t_bits tag = -1;