From 8515044c3212ba5dd943b76cb457b1a8214f0d88 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 2 May 2000 13:41:03 +0000 Subject: [PATCH] (Fsignal): If lisp_eval_depth or spepdl_size are near to the limits, increase the limits. --- src/eval.c | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/eval.c b/src/eval.c index 0efa96f07a7..d616addde43 100644 --- a/src/eval.c +++ b/src/eval.c @@ -1296,6 +1296,13 @@ See also the function `condition-case'.") 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); -- 2.39.5