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.95 2001/08/13 23:31:03 hubbe Exp $ +  * $Id: interpret.h,v 1.96 2001/08/15 03:31:55 hubbe Exp $    */   #ifndef INTERPRET_H   #define INTERPRET_H      #include "global.h"   #include "program.h"   #include "pike_error.h"      struct Pike_interpreter {    /* Swapped variables */
pike.git/src/interpret.h:152:    ptrdiff_t x_= \    ((char *)&x_) + STACK_DIRECTION * (X) - Pike_interpreter.stack_top ; \    x_*=STACK_DIRECTION; \    if(x_>0) { \    ((void (*)(const char*, ...))fatal)(Pike_check_c_stack_errmsg); \    } \    }while(0)         #define pop_stack() do{ free_svalue(--Pike_sp); debug_check_stack(); }while(0) + #define pop_2_elems() do { pop_stack(); pop_stack(); }while(0)      #ifdef __ECL   #define MAYBE_CAST_TO_LONG(X) (X)   #else /* !__ECL */   #define MAYBE_CAST_TO_LONG(X) ((long)(X))   #endif /* __ECL */      #define pop_n_elems(X) \    do { ptrdiff_t x_=(X); if(x_) { \    check__positive(x_, ("Popping negative number of args.... (%ld) \n", \    MAYBE_CAST_TO_LONG(x_))); \    Pike_sp -= x_; debug_check_stack(); \ -  free_svalues(Pike_sp, x_, BIT_MIXED); \ +  free_mixed_svalues(Pike_sp, x_); \    } } 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{ INT_TYPE _=(I); Pike_sp->u.integer=_;Pike_sp->type=PIKE_T_INT;Pike_sp++->subtype=NUMBER_NUMBER; }while(0)   #define push_undefined() do{ Pike_sp->u.integer=0; Pike_sp->type=PIKE_T_INT; Pike_sp++->subtype=NUMBER_UNDEFINED; }while(0)   #define push_mapping(M) do{ struct mapping *_=(M); debug_malloc_touch(_); Pike_sp->u.mapping=_; Pike_sp++->type=PIKE_T_MAPPING; }while(0)
pike.git/src/interpret.h:322:   void print_return_value(void);   void reset_evaluator(void);   struct backlog;   void dump_backlog(void);   BLOCK_ALLOC(pike_frame,128)      PMOD_EXPORT void find_external_context(struct external_variable_context *loc,    int arg2);   int low_mega_apply(enum apply_type type, INT32 args, void *arg1, void *arg2);   void low_return(void); + void low_return_pop(void);   void unlink_previous_frame(void);   void mega_apply(enum apply_type type, INT32 args, void *arg1, void *arg2);   PMOD_EXPORT void f_call_function(INT32 args);   PMOD_EXPORT void call_handle_error(void);   PMOD_EXPORT int apply_low_safe_and_stupid(struct object *o, INT32 offset);   PMOD_EXPORT void safe_apply_low(struct object *o,int fun,int args);   PMOD_EXPORT void safe_apply_low2(struct object *o,int fun,int args, int handle_errors);   PMOD_EXPORT void safe_apply(struct object *o, char *fun ,INT32 args);   PMOD_EXPORT void safe_apply_handler(const char *fun,    struct object *handler,