From fffb2a6ca880d26c3857f8e3c1cb5483cd57ea10 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Tue, 12 Sep 2000 19:06:08 +0200
Subject: [PATCH] Added fatal_check_c_stack().
Rev: src/interpret.h:1.67
---
src/interpret.h | 11 ++++++++++-
1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/src/interpret.h b/src/interpret.h
index b8e5c71098..6b52e670e9 100644
--- a/src/interpret.h
+++ b/src/interpret.h
@@ -5,7 +5,7 @@
\*/
/*
- * $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,6 +100,15 @@ struct external_variable_context
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)
--
GitLab