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.36 2000/02/17 00:31:10 hubbe Exp $ +  * $Id: interpret.h,v 1.37 2000/02/29 03:17:24 hubbe Exp $    */   #ifndef INTERPRET_H   #define INTERPRET_H      #include "global.h"   #include "program.h"      #ifndef STRUCT_FRAME_DECLARED   #define STRUCT_FRAME_DECLARED   #endif
pike.git/src/interpret.h:29:    unsigned char *pc;    struct svalue *locals;    struct svalue *expendible;    struct object *current_object;    struct inherit context;    char *current_storage;   };      #ifdef PIKE_DEBUG   #define debug_check_stack() do{if(Pike_sp<Pike_evaluator_stack)fatal("Stack error.\n");}while(0) - #define check__positive(X,Y) if((X)<0) fatal(Y) + #define check__positive(X,Y) if((X)<0) fatal Y   #include "error.h"   #else   #define check__positive(X,Y)   #define debug_check_stack()   #endif      #define check_stack(X) do { \    if(Pike_sp - Pike_evaluator_stack + (X) >= Pike_stack_size) \    error("Svalue stack overflow. " \    "(%d of %d entries on stack, needed %d more entries)\n", \
pike.git/src/interpret.h:60:    x_*=STACK_DIRECTION; \    if(x_>0) \    low_error("C stack overflow.\n"); \    }while(0)         #define pop_stack() do{ free_svalue(--Pike_sp); debug_check_stack(); }while(0)      #define pop_n_elems(X) \    do { int x_=(X); if(x_) { \ -  check__positive(x_,"Popping negative number of args....\n"); \ +  check__positive(x_,("Popping negative number of args.... (%d) \n",x_)); \    Pike_sp-=x_; debug_check_stack(); \    free_svalues(Pike_sp,x_,BIT_MIXED); \    } } while (0)      #define stack_pop_n_elems_keep_top(X) \    do { struct svalue s=Pike_sp[-1]; Pike_sp[-1]=Pike_sp[-1-(X)]; Pike_sp[-1-(X)]=s; \    pop_n_elems(X); } while (0)      #define push_program(P) do{ struct program *_=(P); debug_malloc_touch(_); Pike_sp->u.program=_; Pike_sp++->type=PIKE_T_PROGRAM; }while(0)   #define push_int(I) do{ INT32 _=(I); Pike_sp->u.integer=_;Pike_sp->type=PIKE_T_INT;Pike_sp++->subtype=NUMBER_NUMBER; }while(0)
pike.git/src/interpret.h:237:   #define evaluator_stack Pike_evaluator_stack   #define stack_top Pike_stack_top   #define mark_sp Pike_mark_sp   #define mark_stack Pike_mark_stack   #define stack_size Pike_stack_size      #endif /* !NO_PIKE_SHORTHAND */      #endif    +