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.68 1998/02/03 23:12:26 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.69 1998/02/27 08:39:17 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:358: Inside #if defined(DEBUG)
   s[TRACE_LEN-2]='.';    }    fprintf(stderr,"- value: %s\n",s);    free(s);    }   }   #else   #define print_return_value()   #endif    -  - void pop_n_elems(INT32 x) - { -  if(!x) return; - #ifdef DEBUG -  if(sp - evaluator_stack < x) -  fatal("Popping out of stack.\n"); -  -  if(x < 0) fatal("Popping negative number of args....\n"); - #endif -  sp-=x; -  free_svalues(sp,x,BIT_MIXED); - } -  -  +    struct callback_list evaluator_callbacks;      #ifdef DEBUG   static char trace_buffer[100];   #define GET_ARG() (backlog[backlogp].arg=(\    instr=prefix,\    prefix=0,\    instr+=EXTRACT_UCHAR(pc++),\    (t_flag>3 ? sprintf(trace_buffer,"- Arg = %ld\n",(long)instr),write_to_stderr(trace_buffer,strlen(trace_buffer)) : 0),\    instr))
pike.git/src/interpret.c:506:   {    unsigned INT32 accumulator=0,instr, prefix=0;    while(1)    {    fp->pc = pc;    instr=EXTRACT_UCHAR(pc++);      #ifdef DEBUG    if(d_flag)    { - #ifdef _REENTRANT + #if defined(_REENTRANT) && !defined(__NT__)    if(!mt_trylock(& interpreter_lock))    fatal("Interpreter running unlocked!\n");   #endif    sp[0].type=99; /* an invalid type */    sp[1].type=99;    sp[2].type=99;    sp[3].type=99;       if(sp<evaluator_stack || mark_sp < mark_stack || fp->locals>sp)    fatal("Stack error (generic).\n");