Omit ‘const’ on locals

Remove ‘const’ qualifier from locals that were newly added.
We don’t normally bother declaring locals with ‘const’ even
though they are not modified, for the same reason we don’t
bother declaring them with ‘register’ even though their
addresses are not taken; the advantage in compile-time
checking isn’t worth the loss of readability.
* modules/mod-test/mod-test.c (Fmod_test_non_local_exit_funcall)
(Fmod_test_vector_fill, Fmod_test_vector_eq):
* src/emacs-module.c (MODULE_SETJMP_1)
(module_make_global_ref, module_free_global_ref)
(module_non_local_exit_get, module_make_function)
(module_extract_integer, module_extract_float)
(module_get_user_ptr, module_set_user_ptr)
(module_get_user_finalizer, module_set_user_finalizer)
(module_vec_get, Fmodule_call)
(module_non_local_exit_signal_1)
(module_non_local_exit_throw_1, lisp_to_value)
(finalize_storage, allocate_emacs_value, mark_modules)
(module_handle_signal, module_handle_throw)
(module_format_fun_env):
* src/eval.c (push_handler, push_handler_nosignal)
(init_handler):
* src/lread.c (suffix_p):
Omit unnecessary ‘const’.

1 files changed, 10 insertions, 7 deletions

diff --git a/src/eval.c b/src/eval.c
index 9c171473b43..22ee4d1afd1 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -1399,8 +1399,9 @@ internal_condition_case_n (Lisp_Object (*bfun) (ptrdiff_t, Lisp_Object *),
 static void init_handler (struct handler *c, Lisp_Object tag_ch_val,
                           enum handlertype handlertype);
 
-void push_handler (struct handler **const c, const Lisp_Object tag_ch_val,
-                   const enum handlertype handlertype)
+void
+push_handler (struct handler **c, Lisp_Object tag_ch_val,
+              enum handlertype handlertype)
 {
   if (handlerlist->nextfree)
     *c = handlerlist->nextfree;
@@ -1413,14 +1414,15 @@ void push_handler (struct handler **const c, const Lisp_Object tag_ch_val,
   init_handler (*c, tag_ch_val, handlertype);
 }
 
-bool push_handler_nosignal (struct handler **const c, const Lisp_Object tag_ch_val,
-                            const enum handlertype handlertype)
+bool
+push_handler_nosignal (struct handler **c, Lisp_Object tag_ch_val,
+                       enum handlertype handlertype)
 {
   if (handlerlist->nextfree)
     *c = handlerlist->nextfree;
   else
     {
-      struct handler *const h = malloc (sizeof (struct handler));
+      struct handler *h = malloc (sizeof (struct handler));
       if (! h) return false;
       *c = h;
       h->nextfree = NULL;
@@ -1430,8 +1432,9 @@ bool push_handler_nosignal (struct handler **const c, const Lisp_Object tag_ch_v
   return true;
 }
 
-static void init_handler (struct handler *const c, const Lisp_Object tag_ch_val,
-                          const enum handlertype handlertype)
+static void
+init_handler (struct handler *c, Lisp_Object tag_ch_val,
+              enum handlertype handlertype)
 {
   c->type = handlertype;
   c->tag_or_ch = tag_ch_val;