emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

feature/native-comp 7f8dbf7 1/3: Fix const qualifier warnings


From: Andrea Corallo
Subject: feature/native-comp 7f8dbf7 1/3: Fix const qualifier warnings
Date: Sat, 13 Jun 2020 10:48:07 -0400 (EDT)

branch: feature/native-comp
commit 7f8dbf70a5b0a61345b458537b1a7b4febf468fc
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    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.
---
 src/alloc.c | 4 +++-
 src/lisp.h  | 2 +-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/alloc.c b/src/alloc.c
index 514810b..42a5327 100644
--- 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 55055fe..bef2e80 100644
--- 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
   {



reply via email to

[Prev in Thread] Current Thread [Next in Thread]