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.202 2001/06/08 16:25:48 grubba Exp $"); + RCSID("$Id: interpret.c,v 1.203 2001/06/08 21:06:06 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:1648:    INT32 args)   {    int i;    if (handler &&    (i = find_identifier(fun, handler->prog)) != -1) {    safe_apply_low(handler, i, args);    } else if (compat &&    (i = find_identifier(fun, compat->prog)) != -1) {    safe_apply_low(compat, i, args);    } else { -  SAFE_APPLY_MASTER(fun, args); +  struct object *master_obj = master(); +  i = find_identifier(fun, master_obj->prog); +  safe_apply_low(master_obj, i, args);    }   }      PMOD_EXPORT void apply_lfun(struct object *o, int fun, int args)   {   #ifdef PIKE_DEBUG    if(fun < 0 || fun >= NUM_LFUNS)    fatal("Apply lfun on illegal value!\n");   #endif    if(!o->prog)