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.68 2000/11/20 01:20:24 mast Exp $ +  * $Id: interpret.h,v 1.69 2000/12/01 08:09:48 hubbe Exp $    */   #ifndef INTERPRET_H   #define INTERPRET_H      #include "global.h"   #include "program.h" - #include "error.h" + #include "pike_error.h"      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;
pike.git/src/interpret.h:67:   };      struct external_variable_context   {    struct object *o;    struct inherit *inherit;    int parent_identifier;   };      #ifdef PIKE_DEBUG - #define debug_check_stack() do{if(Pike_sp<Pike_interpreter.evaluator_stack)fatal("Stack error.\n");}while(0) + #define debug_check_stack() do{if(Pike_sp<Pike_interpreter.evaluator_stack)fatal("Stack Pike_error.\n");}while(0)   #define check__positive(X,Y) if((X)<0) fatal Y - #include "error.h" + #include "pike_error.h"   #else   #define check__positive(X,Y)   #define debug_check_stack()   #endif      #define check_stack(X) do { \    if(Pike_sp - Pike_interpreter.evaluator_stack + \    Pike_interpreter.svalue_stack_margin + (X) >= Pike_stack_size) \ -  error("Svalue stack overflow. " \ +  Pike_error("Svalue stack overflow. " \    "(%ld of %ld entries on stack, needed %ld more entries)\n", \    PTRDIFF_T_TO_LONG(Pike_sp - Pike_interpreter.evaluator_stack), \    PTRDIFF_T_TO_LONG(Pike_stack_size), \    PTRDIFF_T_TO_LONG(X)); \    }while(0)      #define check_mark_stack(X) do { \    if(Pike_mark_sp - Pike_interpreter.mark_stack + (X) >= Pike_stack_size) \ -  error("Mark stack overflow.\n"); \ +  Pike_error("Mark stack overflow.\n"); \    }while(0)      #define check_c_stack(X) do { \    ptrdiff_t x_= ((char *)&x_) + \    STACK_DIRECTION * (Pike_interpreter.c_stack_margin + (X)) - \    Pike_interpreter.stack_top ; \    x_*=STACK_DIRECTION; \    if(x_>0) \    low_error("C stack overflow.\n"); \    }while(0)