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.203 2001/06/08 21:06:06 grubba Exp $"); + RCSID("$Id: interpret.c,v 1.204 2001/06/10 00:23:24 grubba Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "pike_error.h"   #include "language.h"   #include "stralloc.h"   #include "constants.h"
pike.git/src/interpret.c:456:      #define TRACE(X) pike_trace X   #else   #define TRACE(X)   #endif      PMOD_EXPORT void find_external_context(struct external_variable_context *loc,    int arg2)   {    struct program *p; -  INT32 e,off; +     TRACE((4, "-find_external_context(%d, inherit=%ld)\n", arg2,    DO_NOT_WARN((long)(loc->o->prog ? loc->inherit - loc->o->prog->inherits : 0))));       if(!loc->o)    Pike_error("Current object is destructed\n");       while(--arg2>=0)    {   #ifdef PIKE_DEBUG    if(t_flag>8 && loc->o->prog)