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.168 2000/08/24 13:55:23 grubba Exp $"); + RCSID("$Id: interpret.c,v 1.169 2000/09/07 11:28:37 grubba 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:432:   #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=%d)\n",arg2,loc->inherit - loc->o->prog->inherits)); +  TRACE((4, "-find_external_context(%d, inherit=%ld)\n", arg2, +  DO_NOT_WARN((long)(loc->inherit - loc->o->prog->inherits))));       if(!loc->o)    error("Current object is destructed\n");       while(--arg2>=0)    {   #ifdef PIKE_DEBUG    if(t_flag>8)    my_describe_inherit_structure(loc->o->prog);   #endif
pike.git/src/interpret.c:524:    loc->parent_identifier);   #endif       loc->inherit=INHERIT_FROM_INT(p, loc->parent_identifier);      #ifdef PIKE_DEBUG    if(t_flag>28)    my_describe_inherit_structure(p);   #endif    -  TRACE((5,"- Parent identifier = %d (%s), inherit # = %d\n", +  TRACE((5,"- Parent identifier = %d (%s), inherit # = %ld\n",    loc->parent_identifier,    ID_FROM_INT(p, loc->parent_identifier)->name->str, -  loc->inherit - p->inherits)); +  DO_NOT_WARN((long)(loc->inherit - p->inherits))));      #ifdef DEBUG_MALLOC    if (loc->inherit->storage_offset == 0x55555555) {    fprintf(stderr, "The inherit %p has been zapped!\n", loc->inherit);    debug_malloc_dump_references(loc->inherit,0,2,0);    fprintf(stderr, "It was extracted from the program %p %d\n", p, loc->parent_identifier);    describe(p);    fprintf(stderr, "Which was in turn taken from the object %p\n", loc->o);    describe(loc->o);    fatal("Looks like the program %p has been zapped!\n", p);