* com.c (lang_printable_name): Constify a char*.

From-SVN: r28969

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 6c276948fca0f0bea36df78e36cc6d2ca10da5d8..fd021c9ab609f29f725d0eea09be932efbe64e09 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,7 @@
+Sun Aug 29 09:47:45 1999  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+       * com.c (lang_printable_name): Constify a char*.
+
 Wed Aug 25 01:21:06 1999  Rainer Orth  <ro@TechFak.Uni-Bielefeld.DE>
 
        * lang-specs.h: Pass cc1 spec to f771.

diff --git a/gcc/f/com.c b/gcc/f/com.c
index 47ee8a1108497b99f6d678fbdeaf115d93171697..8d0fc68f51277ccf4d5a29f0dc7fa0277865724a 100644 (file)
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -502,7 +502,7 @@ static void delete_block (tree block);
 static int duplicate_decls (tree newdecl, tree olddecl);
 static void finish_decl (tree decl, tree init, bool is_top_level);
 static void finish_function (int nested);
-static char *lang_printable_name (tree decl, int v);
+static const char *lang_printable_name (tree decl, int v);
 static tree lookup_name_current_level (tree name);
 static struct binding_level *make_binding_level (void);
 static void pop_f_function_context (void);
@@ -14417,7 +14417,7 @@ finish_function (int nested)
    per se, but if that comes up, it should be easy to check (being a
    nested function and all).  */
 
-static char *
+static const char *
 lang_printable_name (tree decl, int v)
 {
   /* Just to keep GCC quiet about the unused variable.