Mercurial > emacs
comparison src/eval.c @ 1452:ed79bb8047e8
(grow_specpdl): Increase max_specpdl_size before Fsignal.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 20 Oct 1992 06:13:00 +0000 |
| parents | ab2d88e2505b |
| children | b327816041d1 |
comparison
equal
deleted
inserted
replaced
| 1451:107c9b227e7f | 1452:ed79bb8047e8 |
|---|---|
| 2043 { | 2043 { |
| 2044 if (max_specpdl_size < 400) | 2044 if (max_specpdl_size < 400) |
| 2045 max_specpdl_size = 400; | 2045 max_specpdl_size = 400; |
| 2046 if (specpdl_size >= max_specpdl_size) | 2046 if (specpdl_size >= max_specpdl_size) |
| 2047 { | 2047 { |
| 2048 if (!NILP (Vdebug_on_error)) | |
| 2049 /* Leave room for some specpdl in the debugger. */ | |
| 2050 max_specpdl_size = specpdl_size + 100; | |
| 2048 Fsignal (Qerror, | 2051 Fsignal (Qerror, |
| 2049 Fcons (build_string ("Variable binding depth exceeds max-specpdl-size"), Qnil)); | 2052 Fcons (build_string ("Variable binding depth exceeds max-specpdl-size"), Qnil)); |
| 2050 max_specpdl_size *= 2; | |
| 2051 } | 2053 } |
| 2052 } | 2054 } |
| 2053 specpdl_size *= 2; | 2055 specpdl_size *= 2; |
| 2054 if (specpdl_size > max_specpdl_size) | 2056 if (specpdl_size > max_specpdl_size) |
| 2055 specpdl_size = max_specpdl_size; | 2057 specpdl_size = max_specpdl_size; |