Branch: Tag:

2001-06-28

2001-06-28 19:25:38 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

more debug

Rev: src/gc.c:1.157

30:      #include "block_alloc.h"    - RCSID("$Id: gc.c,v 1.156 2001/06/28 10:24:21 hubbe Exp $"); + RCSID("$Id: gc.c,v 1.157 2001/06/28 19:25:38 hubbe Exp $");      /* Run garbage collect approximately every time    * 20 percent of all arrays, objects and programs is
534:      void debug_gc_fatal(void *a, int flags, const char *fmt, ...)   { +  struct marker *m;    int orig_gc_pass = Pike_in_gc;    va_list args;   
546:    * checks in describe(). */    Pike_in_gc = 0;    describe(a); +     if (flags & 1) locate_references(a); -  +  +  m=find_marker(a); +  if(m) +  { +  fprintf(stderr,"** Describing marker for this thing.\n"); +  describe(m); +  }else{ +  fprintf(stderr,"** No marker found for this thing.\n"); +  }    Pike_in_gc = orig_gc_pass;    if (flags & 2)    fatal_after_gc = "Fatal in garbage collector.\n";