pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: interpret.c,v 1.142 2000/09/19 15:21:44 grubba Exp $"); + RCSID("$Id: interpret.c,v 1.143 2000/10/01 08:55:03 hubbe Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "error.h"   #include "language.h"   #include "stralloc.h"   #include "constants.h"
pike.git/src/interpret.c:439:   #define TRACE(X) pike_trace X   #else   #define TRACE(X)   #endif      void find_external_context(struct external_variable_context *loc,    int arg2)   {    struct program *p;    INT32 e,off; -  TRACE((4,"-find_external_context(%d, inherit=%d)\n",arg2,loc->inherit - loc->o->prog->inherits)); +  TRACE((4,"-find_external_context(%d, inherit=%d)\n",arg2, +  loc->o->prog ? loc->inherit - loc->o->prog->inherits :0));       if(!loc->o)    error("Current object is destructed\n");       while(--arg2>=0)    {   #ifdef PIKE_DEBUG -  if(t_flag>8) +  if(t_flag>8 && loc->o->prog)    my_describe_inherit_structure(loc->o->prog);   #endif       TRACE((4,"- i->parent_offset=%d i->parent_identifier=%d\n",    loc->inherit->parent_offset,    loc->inherit->parent_identifier));    TRACE((4,"- o->parent_identifier=%d inherit->identifier_level=%d\n",    loc->o->parent_identifier,    loc->inherit->identifier_level));