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.262 2005/02/09 16:43:35 mast Exp $ + || $Id: gc.c,v 1.263 2005/04/06 19:09:45 grubba 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:1333: Inside #if defined(PIKE_DEBUG)
   /* This is useful to set breakpoints on. */    gc_watched_found (m, "gc_touch()");    }   #endif       if (!a) Pike_fatal("Got null pointer.\n");       switch (Pike_in_gc) {    case GC_PASS_PRETOUCH:    m = find_marker(a); -  if (m && !(m->flags & (GC_PRETOUCHED +  if ( + #ifdef DO_PIKE_CLEANUP +  !gc_keep_markers && + #endif +  m && !(m->flags & (GC_PRETOUCHED   #ifdef PIKE_DEBUG    |GC_WATCHED   #endif    )))    gc_fatal(a, 1, "Thing got an existing but untouched marker.\n");    m = get_marker(a);    m->flags |= GC_PRETOUCHED;   #ifdef PIKE_DEBUG    m->saved_refs = *(INT32 *) a;   #endif