[gcc/devel/modula-2] m2decl.cc DeclareKnownVariable to use const char parameter.

[gcc/devel/modula-2] m2decl.cc DeclareKnownVariable to use const char parameter.

[Gaius Mulley]

https://gcc.gnu.org/g:6ca7afc4836ea0dde57edcca9db0e1f5b8d9e7c6

commit 6ca7afc4836ea0dde57edcca9db0e1f5b8d9e7c6
Author: Gaius Mulley <gaius.mulley@southwales.ac.uk>
Date:   Wed Sep 14 00:54:57 2022 +0100

    m2decl.cc DeclareKnownVariable to use const char parameter.
    
    Avoid generating a warning by using const char * parameter.
    
    gcc/m2/ ChangeLog:
    
            * gm2-gcc/m2decl.cc (DeclareKnownVariable): Use const char *
            parameter.
            * gm2-gcc/m2decl.h (DeclareKnownVariable): Use const char *
            parameter.
    
    Signed-off-by: Gaius Mulley <gaius.mulley@southwales.ac.uk>

Diff:
---
 gcc/m2/gm2-gcc/m2decl.cc | 2 +-
 gcc/m2/gm2-gcc/m2decl.h  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/gcc/m2/gm2-gcc/m2decl.cc b/gcc/m2/gm2-gcc/m2decl.cc
index 86bd3ee48ff..c3b5c892dc0 100644
--- a/gcc/m2/gm2-gcc/m2decl.cc
+++ b/gcc/m2/gm2-gcc/m2decl.cc
@@ -76,7 +76,7 @@ m2decl_DeclareM2linkGlobals (location_t location,
 /* DeclareKnownVariable declares a variable to GCC.  */
 
 tree
-m2decl_DeclareKnownVariable (location_t location, char *name, tree type,
+m2decl_DeclareKnownVariable (location_t location, const char *name, tree type,
                              int exported, int imported, int istemporary,
                              int isglobal, tree scope)
 {
diff --git a/gcc/m2/gm2-gcc/m2decl.h b/gcc/m2/gm2-gcc/m2decl.h
index 9b9805aaec4..72eb005bc2c 100644
--- a/gcc/m2/gm2-gcc/m2decl.h
+++ b/gcc/m2/gm2-gcc/m2decl.h
@@ -60,7 +60,7 @@ EXTERN tree m2decl_BuildParameterDeclaration (location_t location, char *name,
                                               tree type, int isreference);
 EXTERN tree m2decl_DeclareKnownConstant (location_t location, tree type,
                                          tree value);
-EXTERN tree m2decl_DeclareKnownVariable (location_t location, char *name,
+EXTERN tree m2decl_DeclareKnownVariable (location_t location, const char *name,
                                          tree type, int exported, int imported,
                                          int istemporary, int isglobal,
                                          tree scope);