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.166 2000/08/24 04:04:40 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.167 2000/08/24 09:56:29 grubba 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:369:       default:    if(IS_ZERO(lval))    index_error(0,0,0,lval,lval+1,"Indexing the NULL value.\n");    else    index_error(0,0,0,lval,lval+1,"Indexing a basic type.\n");    return 0;    }   }    + #ifdef PIKE_DEBUG +    inline void pike_trace(int level,char *fmt, ...) ATTRIBUTE((format (printf, 2, 3)));   inline void pike_trace(int level,char *fmt, ...)   {    if(t_flag > level)    {    va_list args;    va_start(args,fmt);    vsprintf(trace_buffer,fmt,args);    va_end(args);    write_to_stderr(trace_buffer,strlen(trace_buffer));    }   }    - #ifdef PIKE_DEBUG -  +    void my_describe_inherit_structure(struct program *p)   {    struct inherit *in,*last=0;    int e,i=0;    last=p->inherits-1;       fprintf(stderr,"PROGRAM[%d]: inherits=%d identifers_refs=%d ppid=%d\n",    p->id,    p->num_inherits,    p->num_identifier_references,
pike.git/src/interpret.c:629:    pop_stack(); \    } \    break; \   }      #define CJUMP(X,Y) \   CASE(X); \   if(Y(Pike_sp-2,Pike_sp-1)) { \    DOJUMP(); \   }else{ \ -  pc+=sizeof(INT32); \ +  SKIPJUMP(); \   } \   pop_n_elems(2); \   break         /*    * reset the stack machine.    */   void reset_evaluator(void)   {