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 as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: interpret.c,v 1.259 2002/05/10 23:41:57 nilsson Exp $"); + RCSID("$Id: interpret.c,v 1.260 2002/05/15 09:11:21 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:1228:    fatal("Apply lfun on illegal value!\n");   #endif    if(!o->prog)    PIKE_ERROR("destructed object", "Apply on destructed object.\n", Pike_sp, args);    fun = FIND_LFUN(o->prog, fun);    goto apply_low;          case APPLY_LOW:    o = (struct object *)arg1; +  if(o->prog == pike_trampoline_program) +  { +  fun=((struct pike_trampoline *)(o->storage))->func; +  scope=((struct pike_trampoline *)(o->storage))->frame; +  o=scope->current_object; +  goto apply_low_with_scope; +  }    fun = (ptrdiff_t)arg2;       apply_low:   #undef SCOPE   #include "apply_low.h"    break;       apply_low_with_scope:   #define SCOPE scope   #include "apply_low.h"