diff options
| author | Paul Eggert | 2019-04-21 21:47:10 -0700 |
|---|---|---|
| committer | Paul Eggert | 2019-04-21 23:16:48 -0700 |
| commit | 72067661fef9cb9e1a746a7a825053c8204c7a38 (patch) | |
| tree | b11be11ad0e3fddb4f3498f7d9d293125f94f348 /src/eval.c | |
| parent | 418400ab7b36d873905f5ab5e1e07f2bdbd05f9c (diff) | |
| download | emacs-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.c | 9 |
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)) |