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.144 2000/04/19 16:03:30 mast Exp $"); + RCSID("$Id: interpret.c,v 1.145 2000/04/21 00:29:48 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:410: Inside #if defined(PIKE_DEBUG)
     #ifdef PIKE_DEBUG   static char trace_buffer[200];   #endif      #define CASE(X) case (X)-F_OFFSET:      #define DOJUMP() \    do { int tmp; tmp=EXTRACT_INT(pc); pc+=tmp; if(tmp < 0) fast_check_threads_etc(6); }while(0)    + #define SKIPJUMP() pc+=sizeof(INT32) +    #define COMPARISMENT(ID,EXPR) \   CASE(ID); \   instr=EXPR; \   pop_n_elems(2); \   push_int(instr); \   break      #ifdef AUTO_BIGNUM   #define AUTO_BIGNUM_LOOP_TEST(X,Y) INT_TYPE_ADD_OVERFLOW(X,Y)   #else
pike.git/src/interpret.c:515:    fprintf(stderr,"%s:%ld: %s(%ld)\n",    file,    (long)line,    low_get_f_name(backlog[e].instruction + F_OFFSET, backlog[e].program),    (long)backlog[e].arg);    }    }while(e!=backlogp);   }      #endif -  +    static int o_catch(unsigned char *pc);      #ifdef PIKE_DEBUG   #define eval_instruction eval_instruction_with_debug   #include "interpreter.h"      #undef eval_instruction   #define eval_instruction eval_instruction_without_debug   #undef PIKE_DEBUG   #define print_return_value()