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.66 2000/08/24 04:04:41 hubbe Exp $ +  * $Id: interpret.h,v 1.67 2000/09/12 17:06:08 grubba Exp $    */   #ifndef INTERPRET_H   #define INTERPRET_H      #include "global.h"   #include "program.h"   #include "error.h"      struct Pike_interpreter {    /* Swapped variables */
pike.git/src/interpret.h:93:    error("Mark stack overflow.\n"); \    }while(0)      #define check_c_stack(X) do { \    ptrdiff_t x_= ((char *)&x_) + STACK_DIRECTION * (X) - Pike_interpreter.stack_top ; \    x_*=STACK_DIRECTION; \    if(x_>0) \    low_error("C stack overflow.\n"); \    }while(0)    + #define fatal_check_c_stack(X) do { \ +  ptrdiff_t x_= \ +  ((char *)&x_) + STACK_DIRECTION * (X) - Pike_interpreter.stack_top ; \ +  x_*=STACK_DIRECTION; \ +  if(x_>0) { \ +  fatal("C stack overflow.\n"); \ +  } \ +  }while(0)    -  +    #define pop_stack() do{ free_svalue(--Pike_sp); debug_check_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_) { \