aboutsummaryrefslogtreecommitdiffstats
path: root/src/eval.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/eval.c')
-rw-r--r--src/eval.c23
1 files changed, 11 insertions, 12 deletions
diff --git a/src/eval.c b/src/eval.c
index 94ad0607732..fe29564aa2d 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -220,17 +220,14 @@ void
220init_eval_once (void) 220init_eval_once (void)
221{ 221{
222 /* Don't forget to update docs (lispref node "Local Variables"). */ 222 /* Don't forget to update docs (lispref node "Local Variables"). */
223 if (!NATIVE_COMP_FLAG) 223#ifndef HAVE_NATIVE_COMP
224 { 224 max_specpdl_size = 1800; /* See bug#46818. */
225 max_specpdl_size = 1800; /* See bug#46818. */ 225 max_lisp_eval_depth = 800;
226 max_lisp_eval_depth = 800; 226#else
227 } 227 /* Original values increased for comp.el. */
228 else 228 max_specpdl_size = 2500;
229 { 229 max_lisp_eval_depth = 1600;
230 /* Original values increased for comp.el. */ 230#endif
231 max_specpdl_size = 2500;
232 max_lisp_eval_depth = 1600;
233 }
234 Vrun_hooks = Qnil; 231 Vrun_hooks = Qnil;
235 pdumper_do_now_and_after_load (init_eval_once_for_pdumper); 232 pdumper_do_now_and_after_load (init_eval_once_for_pdumper);
236} 233}
@@ -3278,11 +3275,13 @@ funcall_lambda (Lisp_Object fun, ptrdiff_t nargs,
3278 else if (MODULE_FUNCTIONP (fun)) 3275 else if (MODULE_FUNCTIONP (fun))
3279 return funcall_module (fun, nargs, arg_vector); 3276 return funcall_module (fun, nargs, arg_vector);
3280#endif 3277#endif
3278#ifdef HAVE_NATIVE_COMP
3281 else if (SUBR_NATIVE_COMPILED_DYNP (fun)) 3279 else if (SUBR_NATIVE_COMPILED_DYNP (fun))
3282 { 3280 {
3283 syms_left = XSUBR (fun)->lambda_list[0]; 3281 syms_left = XSUBR (fun)->lambda_list;
3284 lexenv = Qnil; 3282 lexenv = Qnil;
3285 } 3283 }
3284#endif
3286 else 3285 else
3287 emacs_abort (); 3286 emacs_abort ();
3288 3287