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.163 2000/08/10 19:31:03 grubba Exp $"); + RCSID("$Id: interpret.c,v 1.164 2000/08/16 16:00:52 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:929:         #ifdef PIKE_DEBUG    if(t_flag > 9)    {    fprintf(stderr,"-- ref: inoff=%d idoff=%d flags=%d\n",    ref->inherit_offset,    ref->identifier_offset,    ref->id_flags);    -  fprintf(stderr,"-- context: prog->id=%d inlev=%d idlev=%d pi=%d po=%d so=%d name=%s\n", +  fprintf(stderr,"-- context: prog->id=%d inlev=%d idlev=%d pi=%d po=%d so=%ld name=%s\n",    new_frame->context.prog->id,    new_frame->context.inherit_level,    new_frame->context.identifier_level,    new_frame->context.parent_identifier,    new_frame->context.parent_offset, -  new_frame->context.storage_offset, +  DO_NOT_WARN((long)new_frame->context.storage_offset),    new_frame->context.name ? new_frame->context.name->str : "NULL");    if(t_flag>19)    {    describe(new_frame->context.prog);    }    }   #endif          new_frame->locals = Pike_sp - args;