pike.git/ src/ interpret.h

2000-09-12

2000-09-12 17:06:08 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• fffb2a6ca880d26c3857f8e3c1cb5483cd57ea10 (12 lines) (+11/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

Added fatal_check_c_stack().

Rev: src/interpret.h:1.67

5:   \*/      /* -  * $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
100:    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