Fix const qualifier warnings

	* src/lisp.h (struct Lisp_Subr): Remove const qualifier from
	'native_c_name'.

	* src/alloc.c (cleanup_vector): Cast to discard const qualifier.

diff --git a/src/alloc.c b/src/alloc.c
index 514810b83fad509a2add3dfe9f33b7be3b038ba5..42a53276bc81e34308bfcc0007b9a2275fa2875b 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -3163,7 +3163,9 @@ cleanup_vector (struct Lisp_Vector *vector)
        PSEUDOVEC_STRUCT (vector, Lisp_Subr);
       if (!NILP (subr->native_comp_u[0]))
        {
-         xfree (subr->symbol_name);
+         /* FIXME Alternative and non invasive solution to this
+            cast?  */
+         xfree ((char *)subr->symbol_name);
          xfree (subr->native_c_name[0]);
        }
     }

diff --git a/src/lisp.h b/src/lisp.h
index 55055fe284a530181ec1c4a880adcadb2e1ea321..bef2e8079e163818f8953a80d49b24720dca1040 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2095,7 +2095,7 @@ struct Lisp_Subr
     };
     EMACS_INT doc;
     Lisp_Object native_comp_u[NATIVE_COMP_FLAG];
-    const char *native_c_name[NATIVE_COMP_FLAG];
+    char *native_c_name[NATIVE_COMP_FLAG];
   } GCALIGNED_STRUCT;
 union Aligned_Lisp_Subr
   {