pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: interpret.c,v 1.299 2004/08/19 15:00:50 grubba Exp $ + || $Id: interpret.c,v 1.300 2004/09/30 15:38:48 mast Exp $   */      #include "global.h" - RCSID("$Id: interpret.c,v 1.299 2004/08/19 15:00:50 grubba Exp $"); + RCSID("$Id: interpret.c,v 1.300 2004/09/30 15:38:48 mast 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:131:    Pike_fatal("Mark stack underflow!\n");   #endif    return Pike_sp - *--Pike_mark_sp;   }         #ifdef PIKE_DEBUG   static void gc_check_stack_callback(struct callback *foo, void *bar, void *gazonk)   {    struct pike_frame *f; +  if (Pike_interpreter.evaluator_stack) {    debug_gc_xmark_svalues(Pike_interpreter.evaluator_stack,    Pike_sp-Pike_interpreter.evaluator_stack-1,    " on current interpreter stack");       for(f=Pike_fp;f;f=f->next)    {    if(f->context.parent)    gc_external_mark2(f->context.parent,0," in Pike_fp->context.parent on current stack");    gc_external_mark2(f->current_object,0," in Pike_fp->current_object on current stack");    gc_external_mark2(f->context.prog,0," in Pike_fp->context.prog on current stack");    } -  +     } -  + }   #endif      /* Execute Pike code starting at pc.    *    * Called once with NULL to initialize tables.    *    * Returns 0 if pc is NULL.    *    * Returns -1 if the code terminated due to a RETURN.    *