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.177 2000/12/04 19:39:45 mast Exp $"); + RCSID("$Id: interpret.c,v 1.178 2000/12/05 21:08:18 per 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:1299:    struct svalue **save_mark_sp=Pike_mark_sp;    tailrecurse=eval_instruction(pc);    Pike_mark_sp=save_mark_sp;   #ifdef PIKE_DEBUG    if(Pike_mark_sp < save_mark_sp)    fatal("Popped below save_mark_sp!\n");   #endif    }   #ifdef PIKE_DEBUG    if(Pike_sp<Pike_interpreter.evaluator_stack) -  fatal("Stack Pike_error (also simple).\n"); +  fatal("Stack error (also simple).\n");   #endif    break;    }       }   #ifdef PROFILING   #ifdef HAVE_GETHRTIME    {    long long time_passed, time_in_children, self_time;    time_in_children= Pike_interpreter.accounted_time - children_base;
pike.git/src/interpret.c:1494:    {    ret=1;    }else{    struct svalue **save_mark_sp=Pike_mark_sp;    int tmp=eval_instruction(o->prog->program + offset);    Pike_mark_sp=save_mark_sp;    if(tmp!=-1) mega_apply(APPLY_STACK, tmp, 0,0);      #ifdef PIKE_DEBUG    if(Pike_sp<Pike_interpreter.evaluator_stack) -  fatal("Stack Pike_error (simple).\n"); +  fatal("Stack error (simple).\n");   #endif    ret=0;    }    UNSETJMP(tmp);       POP_PIKE_FRAME();       return ret;   }