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.174 2000/11/20 01:59:20 mast Exp $"); + RCSID("$Id: interpret.c,v 1.175 2000/12/01 01:14:58 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:107: 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    - void init_interpreter(void) + PMOD_EXPORT void init_interpreter(void)   {   #ifdef USE_MMAP_FOR_STACK    static int fd = -1;         #ifndef MAP_VARIABLE   #define MAP_VARIABLE 0   #endif      #ifndef MAP_PRIVATE
pike.git/src/interpret.c:1636: Inside #if defined(PIKE_DEBUG)
   f->locals > &(Pike_interpreter.evaluator_stack[stack_size]))    fatal("Local variable pointer points to FinspĂ„ng.\n");       if(f->args < 0 || f->args > stack_size)    fatal("FEL FEL FEL! HELP!! (corrupted pike_frame)\n");    }    }   }   #endif    - void cleanup_interpret(void) + PMOD_EXPORT void cleanup_interpret(void)   {   #ifdef PIKE_DEBUG    int e;   #endif       while(Pike_fp)    POP_PIKE_FRAME();      #ifdef PIKE_DEBUG    for(e=0;e<BACKLOG;e++)