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.48 2000/07/07 01:19:04 hubbe Exp $ +  * $Id: interpret.h,v 1.49 2000/07/07 01:24:14 hubbe 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:73:   #endif      #define check_stack(X) do { \    if(Pike_sp - Pike_interpreter.evaluator_stack + (X) >= Pike_stack_size) \    error("Svalue stack overflow. " \    "(%d of %d entries on stack, needed %d more entries)\n", \    Pike_sp-Pike_interpreter.evaluator_stack,Pike_stack_size,(X)); \    }while(0)      #define check_mark_stack(X) do { \ -  if(Pike_interpreter.mark_sp - Pike_interpreter.mark_stack + (X) >= Pike_stack_size) \ +  if(Pike_mark_sp - Pike_interpreter.mark_stack + (X) >= Pike_stack_size) \    error("Mark stack overflow.\n"); \    }while(0)      #define check_c_stack(X) do { \    long x_= ((char *)&x_) + STACK_DIRECTION * (X) - Pike_interpreter.stack_top ; \    x_*=STACK_DIRECTION; \    if(x_>0) \    low_error("C stack overflow.\n"); \    }while(0)