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.299 2007/10/12 13:31:05 mast Exp $ + || $Id: gc.c,v 1.300 2007/10/12 18:42:38 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:1282: Inside #if defined(PIKE_DEBUG)
   }    else    fprintf (stderr, "%*s**%*s=== End of nameless inherit\n",    indent, "", inh->inherit_level + 1, "");    while (inh > p->inherits) { /* Paranoia. */    if ((--inh)->inherit_level < cur_lvl) break;    }    inh_id_end = inh->identifier_level + inh->prog->num_identifier_references;    }    + #if 0 +  /* Can be illuminating to see these too.. */    if (id_ref->id_flags & ID_HIDDEN ||    (id_ref->id_flags & (ID_INHERITED|ID_PRIVATE)) ==    (ID_INHERITED|ID_PRIVATE)) continue; -  + #endif       id_inh = INHERIT_FROM_PTR (p, id_ref);    id = id_inh->prog->identifiers + id_ref->identifier_offset;       if (IDENTIFIER_IS_ALIAS (id->identifier_flags)) type = "alias";    else if (IDENTIFIER_IS_PIKE_FUNCTION (id->identifier_flags)) type = "fun";    else if (IDENTIFIER_IS_FUNCTION (id->identifier_flags)) type = "cfun";    else if (IDENTIFIER_IS_CONSTANT (id->identifier_flags)) type = "const";    else if (IDENTIFIER_IS_VARIABLE (id->identifier_flags)) type = "var";    else type = "???";
pike.git/src/gc.c:1308: Inside #if defined(PIKE_DEBUG)
   strcat (prot, ",pri");    if (!(id_ref->id_flags & ID_STATIC)) strcat (prot, ",!sta");    }    else    if (id_ref->id_flags & ID_STATIC) strcat (prot, ",sta");    if (id_ref->id_flags & ID_NOMASK) strcat (prot, ",nom");    if (id_ref->id_flags & ID_PUBLIC) strcat (prot, ",pub");    if (id_ref->id_flags & ID_PROTECTED) strcat (prot, ",pro");    if (id_ref->id_flags & ID_INLINE) strcat (prot, ",inl");    if (id_ref->id_flags & ID_OPTIONAL) strcat (prot, ",opt"); +  if (id_ref->id_flags & ID_HIDDEN) strcat (prot, ",hid"); +  if (id_ref->id_flags & ID_INHERITED) strcat (prot, ",inh");    if (id_ref->id_flags & ID_EXTERN) strcat (prot, ",ext");    if (id_ref->id_flags & ID_VARIANT) strcat (prot, ",var");       sprintf (descr, "%s: %s", type, prot + 1); -  fprintf (stderr, "%*s**%*s%-18s name: ", -  indent, "", id_inh->inherit_level + 1, "", descr); +  fprintf (stderr, "%*s**%*s%-3"PRINTPTRDIFFT"d %-18s name: ", +  indent, "", id_inh->inherit_level + 1, "", id_idx, descr);       if (id->name->size_shift)    safe_print_short_svalue (stderr, (union anything *) &id->name,    T_STRING);    else    fprintf (stderr, "%-20s", id->name->str);       if (IDENTIFIER_IS_ALIAS(id->identifier_flags)) {    fprintf(stderr, " depth: %d id: %d",    id->func.ext_ref.depth, id->func.ext_ref.id);