Branch: Tag:

2000-02-29

2000-02-29 03:17:24 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

more debug

Rev: src/interpret.h:1.37

5:   \*/      /* -  * $Id: interpret.h,v 1.36 2000/02/17 00:31:10 hubbe Exp $ +  * $Id: interpret.h,v 1.37 2000/02/29 03:17:24 hubbe Exp $    */   #ifndef INTERPRET_H   #define INTERPRET_H
36: Inside #if defined(PIKE_DEBUG)
     #ifdef PIKE_DEBUG   #define debug_check_stack() do{if(Pike_sp<Pike_evaluator_stack)fatal("Stack error.\n");}while(0) - #define check__positive(X,Y) if((X)<0) fatal(Y) + #define check__positive(X,Y) if((X)<0) fatal Y   #include "error.h"   #else   #define check__positive(X,Y)
67:      #define pop_n_elems(X) \    do { int x_=(X); if(x_) { \ -  check__positive(x_,"Popping negative number of args....\n"); \ +  check__positive(x_,("Popping negative number of args.... (%d) \n",x_)); \    Pike_sp-=x_; debug_check_stack(); \    free_svalues(Pike_sp,x_,BIT_MIXED); \    } } while (0)
244:      #endif    +