Skip to content
Snippets Groups Projects
Commit 5f776b87 authored by Fredrik Hübinette (Hubbe)'s avatar Fredrik Hübinette (Hubbe)
Browse files

more debug

Rev: src/interpret.h:1.37
parent f531df0f
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
\*/
/*
* $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,7 +36,7 @@ struct pike_frame
#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,7 +67,7 @@ struct pike_frame
#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,3 +244,4 @@ extern long long time_base;
#endif
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment