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.54 1997/11/01 21:57:49 grubba Exp $"); + RCSID("$Id: interpret.c,v 1.55 1997/11/08 01:34:38 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:80:    fatal("Mark stack underflow!\n");   #endif    return sp - *--mark_sp;   }      struct frame *fp; /* frame pointer */      #ifdef DEBUG   static void gc_check_stack_callback(struct callback *foo, void *bar, void *gazonk)   { -  gc_xmark_svalues(evaluator_stack,sp-evaluator_stack-1); +  debug_gc_xmark_svalues(evaluator_stack,sp-evaluator_stack-1,"interpreter stack");   }   #endif      void init_interpreter(void)   {   #ifdef USE_MMAP_FOR_STACK    static int fd = -1;      #ifdef DEBUG    static struct callback *spcb;
pike.git/src/interpret.c:1133:    goto do_return;       CASE(F_RETURN);    if(fp->locals != sp-1)    {    assign_svalue(fp->locals, sp-1);    pop_n_elems(sp - fp->locals - 1);    }       do_return: - #if defined(DEBUG) && defined(GC2) + #ifdef DEBUG    if(d_flag > 2)    do_gc();   #endif    check_threads_etc();       /* fall through */       CASE(F_DUMB_RETURN);    return;