changeset 28779:ac31ccbeef6d

(Fsignal): If lisp_eval_depth or spepdl_size are near to the limits, increase the limits.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 02 May 2000 13:41:03 +0000
parents 2103b8319ef4
children 6bc5854eef8b
files src/eval.c
diffstat 1 files changed, 7 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/eval.c	Tue May 02 12:03:43 2000 +0000
+++ b/src/eval.c	Tue May 02 13:41:03 2000 +0000
@@ -1296,6 +1296,13 @@
   for (; handlerlist; handlerlist = handlerlist->next)
     {
       register Lisp_Object clause;
+      
+      if (lisp_eval_depth + 20 > max_lisp_eval_depth)
+	max_lisp_eval_depth = lisp_eval_depth + 20;
+  
+      if (specpdl_size + 40 > max_specpdl_size)
+	max_specpdl_size = specpdl_size + 40;
+  
       clause = find_handler_clause (handlerlist->handler, conditions,
 				    error_symbol, data, &debugger_value);