aboutsummaryrefslogtreecommitdiffstats
path: root/src/eval.c
diff options
context:
space:
mode:
authorPaul Eggert2019-04-21 21:47:10 -0700
committerPaul Eggert2019-04-21 23:16:48 -0700
commit72067661fef9cb9e1a746a7a825053c8204c7a38 (patch)
treeb11be11ad0e3fddb4f3498f7d9d293125f94f348 /src/eval.c
parent418400ab7b36d873905f5ab5e1e07f2bdbd05f9c (diff)
downloademacs-72067661fef9cb9e1a746a7a825053c8204c7a38.tar.gz
emacs-72067661fef9cb9e1a746a7a825053c8204c7a38.zip
Remove --enablechecking=conslist configure option
* configure.ac: Remove the option. * configure.ac (ac_gc_check_cons_list, GC_CHECK_CONS_LIST): * src/alloc.c (check_cons_list) [GC_CHECK_CONS_LIST]: * src/lisp.h (lisp_h_check_cons_list, check_cons_list): Remove. All uses removed. * etc/NEWS: Mention this.
Diffstat (limited to 'src/eval.c')
-rw-r--r--src/eval.c9
1 files changed, 0 insertions, 9 deletions
diff --git a/src/eval.c b/src/eval.c
index a636f6c50ae..4693767ce7e 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -2210,8 +2210,6 @@ eval_sub (Lisp_Object form)
2210 Lisp_Object args_left = original_args; 2210 Lisp_Object args_left = original_args;
2211 ptrdiff_t numargs = list_length (args_left); 2211 ptrdiff_t numargs = list_length (args_left);
2212 2212
2213 check_cons_list ();
2214
2215 if (numargs < XSUBR (fun)->min_args 2213 if (numargs < XSUBR (fun)->min_args
2216 || (XSUBR (fun)->max_args >= 0 2214 || (XSUBR (fun)->max_args >= 0
2217 && XSUBR (fun)->max_args < numargs)) 2215 && XSUBR (fun)->max_args < numargs))
@@ -2240,7 +2238,6 @@ eval_sub (Lisp_Object form)
2240 2238
2241 val = XSUBR (fun)->function.aMANY (argnum, vals); 2239 val = XSUBR (fun)->function.aMANY (argnum, vals);
2242 2240
2243 check_cons_list ();
2244 lisp_eval_depth--; 2241 lisp_eval_depth--;
2245 /* Do the debug-on-exit now, while VALS still exists. */ 2242 /* Do the debug-on-exit now, while VALS still exists. */
2246 if (backtrace_debug_on_exit (specpdl + count)) 2243 if (backtrace_debug_on_exit (specpdl + count))
@@ -2346,7 +2343,6 @@ eval_sub (Lisp_Object form)
2346 else 2343 else
2347 xsignal1 (Qinvalid_function, original_fun); 2344 xsignal1 (Qinvalid_function, original_fun);
2348 } 2345 }
2349 check_cons_list ();
2350 2346
2351 lisp_eval_depth--; 2347 lisp_eval_depth--;
2352 if (backtrace_debug_on_exit (specpdl + count)) 2348 if (backtrace_debug_on_exit (specpdl + count))
@@ -2786,8 +2782,6 @@ usage: (funcall FUNCTION &rest ARGUMENTS) */)
2786 if (debug_on_next_call) 2782 if (debug_on_next_call)
2787 do_debug_on_call (Qlambda, count); 2783 do_debug_on_call (Qlambda, count);
2788 2784
2789 check_cons_list ();
2790
2791 original_fun = args[0]; 2785 original_fun = args[0];
2792 2786
2793 retry: 2787 retry:
@@ -2817,13 +2811,11 @@ usage: (funcall FUNCTION &rest ARGUMENTS) */)
2817 else if (EQ (funcar, Qautoload)) 2811 else if (EQ (funcar, Qautoload))
2818 { 2812 {
2819 Fautoload_do_load (fun, original_fun, Qnil); 2813 Fautoload_do_load (fun, original_fun, Qnil);
2820 check_cons_list ();
2821 goto retry; 2814 goto retry;
2822 } 2815 }
2823 else 2816 else
2824 xsignal1 (Qinvalid_function, original_fun); 2817 xsignal1 (Qinvalid_function, original_fun);
2825 } 2818 }
2826 check_cons_list ();
2827 lisp_eval_depth--; 2819 lisp_eval_depth--;
2828 if (backtrace_debug_on_exit (specpdl + count)) 2820 if (backtrace_debug_on_exit (specpdl + count))
2829 val = call_debugger (list2 (Qexit, val)); 2821 val = call_debugger (list2 (Qexit, val));
@@ -2935,7 +2927,6 @@ apply_lambda (Lisp_Object fun, Lisp_Object args, ptrdiff_t count)
2935 set_backtrace_args (specpdl + count, arg_vector, numargs); 2927 set_backtrace_args (specpdl + count, arg_vector, numargs);
2936 tem = funcall_lambda (fun, numargs, arg_vector); 2928 tem = funcall_lambda (fun, numargs, arg_vector);
2937 2929
2938 check_cons_list ();
2939 lisp_eval_depth--; 2930 lisp_eval_depth--;
2940 /* Do the debug-on-exit now, while arg_vector still exists. */ 2931 /* Do the debug-on-exit now, while arg_vector still exists. */
2941 if (backtrace_debug_on_exit (specpdl + count)) 2932 if (backtrace_debug_on_exit (specpdl + count))