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.229 2001/07/20 15:48:59 grubba Exp $"); + RCSID("$Id: interpret.c,v 1.230 2001/07/21 09:29:29 hubbe Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "pike_error.h"   #include "language.h"   #include "stralloc.h"   #include "constants.h"
pike.git/src/interpret.c:801:   #define OPCODE2_TAILJUMP(O,N,C) OPCODE2(O,N,C)      #undef HAVE_COMPUTED_GOTO      #ifdef __GNUC__   #ifdef __i386__   #define PROG_COUNTER (((unsigned char **)__builtin_frame_address(0))[1])   #elif defined(sparc)   register unsigned INT32 *reg_pc __asm__ ("%i7");   #define PROG_COUNTER (reg_pc + 2) - #define SET_PROG_COUNTER(X) (reg_pc = ((unsigned INT32 *)X)-2) + #define SET_PROG_COUNTER(X) (reg_pc = ((unsigned INT32 *)(X))-2)   #endif /* __i386__ || sparc */      static int eval_instruction(PIKE_OPCODE_T *pc)   {    do_inter_return_label = && inter_return_label;    do_escape_catch_label = && inter_escape_catch_label;      #ifdef PIKE_DEBUG    if (t_flag) {    int i;