pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.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: interpret.c,v 1.378 2006/07/05 19:28:10 mast Exp $ + || $Id: interpret.c,v 1.379 2006/07/05 20:50:07 mast Exp $   */      #include "global.h"   #include "interpret.h"   #include "object.h"   #include "program.h"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "pike_error.h"
pike.git/src/interpret.c:688:    }    break;       case INHERIT_PARENT:    TRACE((5,"- Following inherit->parent\n"));    loc->parent_identifier=inh->parent_identifier;    loc->o=inh->parent;   #ifdef PIKE_DEBUG    TRACE((5, "- parent_identifier: %d\n"    "- o: %p\n" -  "- inh: %d\n", +  "- inh: %"PRINTPTRDIFFT"d\n",    loc->parent_identifier,    loc->o,    loc->inherit - loc->o->prog->inherits));    if(Pike_interpreter.trace_level>5) {    dump_program_tables(loc->o->prog, 4);    }   #endif    break;       case OBJECT_PARENT:
pike.git/src/interpret.c:753:   #endif /* DEBUG_MALLOC */       if (p) {   #ifdef PIKE_DEBUG    if(loc->parent_identifier < 0 ||    loc->parent_identifier > p->num_identifier_references)    Pike_fatal("Identifier out of range, loc->parent_identifer=%d!\n",    loc->parent_identifier);   #endif    loc->inherit=INHERIT_FROM_INT(p, loc->parent_identifier); -  TRACE((5, "- loc->inherit: %d\n", +  TRACE((5, "- loc->inherit: %"PRINTPTRDIFFT"d\n",    loc->inherit - loc->o->prog->inherits));    }    else    /* Return a valid pointer to a dummy inherit for the convenience    * of the caller. Identifier offsets will be bogus but it'll    * never get to that since the object is destructed. */    loc->inherit = &dummy_inherit;       TRACE((5,"- Parent identifier = %d (%s), inherit # = %ld\n",    loc->parent_identifier,