Branch: Tag:

2003-06-05

2003-06-05 21:52:03 by Martin Stjernholm <mast@lysator.liu.se>

Debug printout which can be used to list all visited references.

Rev: src/gc.c:1.219

2:   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: gc.c,v 1.218 2003/05/12 12:18:41 nilsson Exp $ + || $Id: gc.c,v 1.219 2003/06/05 21:52:03 mast Exp $   */      #include "global.h"
33:      #include "block_alloc.h"    - RCSID("$Id: gc.c,v 1.218 2003/05/12 12:18:41 nilsson Exp $"); + RCSID("$Id: gc.c,v 1.219 2003/06/05 21:52:03 mast Exp $");      int gc_enabled = 1;   
1250: Inside #if defined(PIKE_DEBUG)
   return 0;    }    + #if 0 +  fprintf (stderr, "Ref: %s %p -> %p%s\n", +  get_name_of_type (found_in_type), found_in, a, +  found_where ? found_where : ""); + #endif +     if (Pike_in_gc != GC_PASS_CHECK)    Pike_fatal("gc check attempted in invalid pass.\n");