pike.git / src / interpret.h

version» Context lines:

pike.git/src/interpret.h: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.   \*/      /* -  * $Id: interpret.h,v 1.85 2001/05/24 22:39:00 hubbe Exp $ +  * $Id: interpret.h,v 1.86 2001/05/24 23:07:23 grubba Exp $    */   #ifndef INTERPRET_H   #define INTERPRET_H      #include "global.h"   #include "program.h"   #include "pike_error.h"    -  + #ifdef SHORT_PIKE_OPCODE + #define PIKE_OPCODE_T unsigned INT16 + #else /* !SHORT_PIKE_OPCODE */ + #define PIKE_OPCODE_T unsigned INT8 + #endif /* SHORT_PIKE_OPCODE */ +    struct Pike_interpreter {    /* Swapped variables */    struct svalue *stack_pointer;    struct svalue *evaluator_stack;    struct svalue **mark_stack_pointer;    struct svalue **mark_stack;    struct pike_frame *frame_pointer;    int evaluator_stack_malloced;    int mark_stack_malloced;    JMP_BUF *recoveries;
pike.git/src/interpret.h:53:   {    INT32 refs; /* must be first */    INT32 args;    unsigned INT16 fun;    INT16 num_locals;    INT16 num_args;    unsigned INT16 flags;    INT16 ident;    struct pike_frame *next;    struct pike_frame *scope; -  unsigned char *pc; +  PIKE_OPCODE_T *pc;    struct svalue *locals;       /* This is <= locals, and this is where the    * return value should go.    */    struct svalue *save_sp;       /* This tells us the current level of    * svalues on the stack that can be discarded once the    * current function is done with them
pike.git/src/interpret.h:379:   {    struct svalue *top;    int flags;    struct Pike_stack *previous;    struct svalue *save_ptr;    struct svalue stack[1];   };         #define PIKE_STACK_REQUIRE_BEGIN(num, base) do { \ -  struct Pike_stack *old; \ +  struct Pike_stack *old_stack_; \    if(Pike_interpreter.current_stack->top - Pike_sp < num) \    { \ -  old=Pike_interpreter.current_stack; \ -  old->save_ptr=Pike_sp; \ +  old_stack_=Pike_interpreter.current_stack; \ +  old_stack_->save_ptr=Pike_sp; \    Pike_interpreter.current_stack=allocate_array(MAXIMUM(num, 8192)); \ -  while(old_sp > base) *(Pike_sp++) = *--old->save_ptr; \ +  while(old_sp > base) *(Pike_sp++) = *--old_stack_->save_ptr; \    }      #define PIKE_STACK_REQUIRE_END() \    while(Pike_sp > Pike_interpreter.current_stack->stack) \ -  *(old->save_ptr++) = *--Pike_sp; \ +  *(old_stack_->save_ptr++) = *--Pike_sp; \    Pike_interpreter.current_stack=Pike_interpreter.current_stack->previous; \   }while(0)      #endif