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.127 1999/09/06 10:47:15 grubba Exp $"); + RCSID("$Id: interpret.c,v 1.128 1999/09/25 20:14:17 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:933:    case IDENTIFIER_C_FUNCTION:    debug_malloc_touch(fp);    fp->num_args=args;    new_frame->num_locals=args;    check_threads_etc();    (*function->func.c_fun)(args);    break;       case IDENTIFIER_CONSTANT:    { -  struct svalue *s=fp->context.prog->constants+function->func.offset; +  struct svalue *s=&(fp->context.prog-> +  constants[function->func.offset].sval);    debug_malloc_touch(fp);    if(s->type == T_PROGRAM)    {    struct object *tmp;    check_threads_etc();    tmp=parent_clone_object(s->u.program,    o,    fun,    args);    push_object(tmp);