pike.git / src / gc.c

version» Context lines:

pike.git/src/gc.c:1:   /*   || 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.336 2009/11/19 23:45:21 mast Exp $ + || $Id: gc.c,v 1.337 2009/11/28 11:49:47 mast Exp $   */      #include "global.h"      struct callback *gc_evaluator_callback=0;      #include "array.h"   #include "multiset.h"   #include "mapping.h"   #include "object.h"
pike.git/src/gc.c:1002:    int orig_gc_pass = Pike_in_gc;       (void) VFPRINTF(stderr, fmt, args);      #ifdef PIKE_DEBUG    if (a) {    /* Temporarily jumping out of gc to avoid being caught in debug    * 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";    else   #endif    {    d_flag = 0; /* The instruction backlog is never of any use here. */    debug_fatal (NULL);