pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: interpret.c,v 1.412 2009/04/01 20:41:32 mast Exp $ + || $Id: interpret.c,v 1.413 2009/08/06 13:17:50 grubba Exp $   */      #include "global.h"   #include "interpret.h"   #include "object.h"   #include "program.h"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "pike_error.h"
pike.git/src/interpret.c:2648:   }      /* Apply function @[fun] in parent @[depth] levels up with @[args] arguments.    */   PMOD_EXPORT void apply_external(int depth, int fun, INT32 args)   {    struct external_variable_context loc;       loc.o = Pike_fp->current_object;    loc.parent_identifier = Pike_fp->fun; -  if (loc.o->prog) +  if (loc.o->prog) {    loc.inherit = INHERIT_FROM_INT(loc.o->prog, loc.parent_identifier);       find_external_context(&loc, depth);       apply_low(loc.o, fun + loc.inherit->identifier_level, args); -  +  } else { +  PIKE_ERROR("destructed object", "Apply on parent of destructed object.\n", +  Pike_sp, args);    } -  + }      #ifdef PIKE_DEBUG   void slow_check_stack(void)   {    struct svalue *s,**m;    struct pike_frame *f;       debug_check_stack();       if(Pike_sp > &(Pike_interpreter.evaluator_stack[Pike_stack_size]))