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.88 1998/06/18 23:18:44 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.89 1998/06/18 23:53:12 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:2159: Inside #if defined(DEBUG)
   if(sp<evaluator_stack)    fatal("Stack error (simple).\n");   #endif    ret=0;    }    UNSETJMP(tmp);       free_object(new_frame.current_object);    free_program(new_frame.context.prog);    -  mark_sp=save_mark_sp; +     return ret;   }      void safe_apply_low(struct object *o,int fun,int args)   {    JMP_BUF recovery;       sp-=args;    free_svalue(& throw_value);    throw_value.type=T_INT;