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.249 2001/09/24 14:14:46 grubba Exp $"); + RCSID("$Id: interpret.c,v 1.250 2001/10/05 01:30:12 hubbe 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:1449:    *!    *! Call a function.    */   PMOD_EXPORT void f_call_function(INT32 args)   {    mega_apply(APPLY_STACK,args,0,0);   }      PMOD_EXPORT void call_handle_error(void)   { +  dmalloc_touch_svalue(&throw_value);    if (Pike_interpreter.svalue_stack_margin) {    ONERROR tmp;    int old_t_flag = t_flag;    t_flag = 0;    Pike_interpreter.svalue_stack_margin = 0;    Pike_interpreter.c_stack_margin = 0;    SET_ONERROR(tmp,exit_on_error,"Error in handle_error in master object!");    *(Pike_sp++) = throw_value;    throw_value.type=T_INT;    APPLY_MASTER("handle_error", 1);