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.91 1998/07/16 19:25:43 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.92 1998/07/17 19:53:16 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:1899:    /* If we are really unlucky, o hasn't just been destructed, it has    * also been freed!    */       p=o->prog;    if(!p)    PIKE_ERROR("destructed object->function",    "Cannot call functions in destructed objects.\n", sp, args);   #ifdef DEBUG    if(fun>=(int)p->num_identifier_references) +  { +  fprintf(stderr,"Function index out of range. %d >= %d\n",fun,(int)p->num_identifier_references); +  fprintf(stderr,"########Program is:\n"); +  describe(p); +  fprintf(stderr,"########Object is:\n"); +  describe(o);    fatal("Function index out of range.\n"); -  +  }   #endif       ref = p->identifier_references + fun;   #ifdef DEBUG    if(ref->inherit_offset>=p->num_inherits)    fatal("Inherit offset out of range in program.\n");   #endif       /* init a new evaluation frame */    new_frame.parent_frame = fp;