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.154 2000/06/09 22:45:08 mast Exp $"); + RCSID("$Id: interpret.c,v 1.155 2000/06/20 23:31:25 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:1092:    fatal("Wrong number of arguments or locals in function def.\n");   #endif    new_frame->num_locals=num_locals;    new_frame->num_args=num_args;       check_threads_etc();       {    struct svalue **save_mark_sp=mark_sp;    tailrecurse=eval_instruction(pc); +  mark_sp=save_mark_sp;   #ifdef PIKE_DEBUG    if(mark_sp < save_mark_sp)    fatal("Popped below save_mark_sp!\n");   #endif -  mark_sp=save_mark_sp; +     }   #ifdef PIKE_DEBUG    if(sp<evaluator_stack)    fatal("Stack error (also simple).\n");   #endif    break;    }       }   #ifdef PROFILING
pike.git/src/interpret.c:1265:    new_frame->context.parent=0;    fp = new_frame;       add_ref(new_frame->current_object);    add_ref(new_frame->context.prog);       if(SETJMP(tmp))    {    ret=1;    }else{ +  struct svalue **save_mark_sp=mark_sp;    int tmp=eval_instruction(o->prog->program + offset); -  +  mark_sp=save_mark_sp;    if(tmp!=-1) mega_apply(APPLY_STACK, tmp, 0,0);      #ifdef PIKE_DEBUG    if(sp<evaluator_stack)    fatal("Stack error (simple).\n");   #endif    ret=0;    }    UNSETJMP(tmp);