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.215 2001/07/08 20:58:05 grubba Exp $"); + RCSID("$Id: interpret.c,v 1.216 2001/07/08 20:58:35 grubba 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:128: Inside #if defined(PIKE_DEBUG)
   {    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    + static int eval_instruction(unsigned char *pc); +    PMOD_EXPORT void init_interpreter(void)   {   #ifdef USE_MMAP_FOR_STACK    static int fd = -1;         #ifndef MAP_VARIABLE   #define MAP_VARIABLE 0   #endif   
pike.git/src/interpret.c:222: Inside #if defined(PROFILING)
   Pike_interpreter.accounted_time =0;   #endif   #endif   #ifdef HAVE_COMPUTED_GOTO    /* Initialize the fcode_to_opcode table. */    eval_instruction(NULL);   #endif /* HAVE_COMPUTED_GOTO */   }       - static int eval_instruction(unsigned char *pc); -  -  +    /*    * lvalues are stored in two svalues in one of these formats:    * array[index] : { array, index }    * mapping[index] : { mapping, index }    * multiset[index] : { multiset, index }    * object[index] : { object, index }    * local variable : { svalue_pointer, nothing }    * global variable : { svalue_pointer/short_svalue_pointer, nothing }    */