Mercurial > emacs
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);