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.350 2004/06/01 19:12:06 mast Exp $ + || $Id: interpret.c,v 1.351 2004/06/02 00:09:48 nilsson Exp $   */      #include "global.h" - RCSID("$Id: interpret.c,v 1.350 2004/06/01 19:12:06 mast Exp $"); + RCSID("$Id: interpret.c,v 1.351 2004/06/02 00:09:48 nilsson Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "pike_error.h"   #include "stralloc.h"   #include "constants.h"   #include "pike_macros.h"
pike.git/src/interpret.c:479:    if(SAFE_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, ...) + INLINE void pike_trace(int level,char *fmt, ...) ATTRIBUTE((format (printf, 2, 3))); + INLINE void pike_trace(int level,char *fmt, ...)   {    if(Pike_interpreter.trace_level > level)    {    va_list args;    va_start(args,fmt);    vsprintf(trace_buffer,fmt,args);    va_end(args);    write_to_stderr(trace_buffer,strlen(trace_buffer));    }   }
pike.git/src/interpret.c:754: Inside #if defined(_REENTRANT)
  #ifdef _REENTRANT    struct thread_state *thread_state;   #endif    ptrdiff_t stack;    ptrdiff_t mark_stack;   };      struct backlog backlog[BACKLOG];   int backlogp=BACKLOG-1;    - static inline void low_debug_instr_prologue (PIKE_INSTR_T instr) + static INLINE void low_debug_instr_prologue (PIKE_INSTR_T instr)   {    if(Pike_interpreter.trace_level > 2)    {    char *file = NULL, *f;    struct pike_string *filep;    INT32 linep;       filep = get_line(Pike_fp->pc,Pike_fp->context.prog,&linep);    if (filep && !filep->size_shift) {    file = filep->str;
pike.git/src/interpret.c:1358:   #include "interpreter.h"      #define PIKE_DEBUG   #define NDEBUG   #undef DO_IF_DEBUG   #define DO_IF_DEBUG(X) X   #undef print_return_value      #undef eval_instruction    - static inline int eval_instruction(unsigned char *pc) + static INLINE int eval_instruction(unsigned char *pc)   {    if(d_flag || Pike_interpreter.trace_level>2)    return eval_instruction_with_debug(pc);    else    return eval_instruction_without_debug(pc);   }         #else   #include "interpreter.h"