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

        * com.c (lang_print_error_function): Constify a char*.
        (init_parse): Remove redundant prototype for `print_error_function'.
        (lang_identify): Constify a char*.

From-SVN: r28634

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 7227d13a9b2dae17b5b5857e98fc06c93a53cbcc..093668bb9359eaa2eb22551d19d0307dc3c37de5 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,9 @@
+Mon Aug  9 19:44:08 1999  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+        * com.c (lang_print_error_function): Constify a char*.
+        (init_parse): Remove redundant prototype for `print_error_function'.
+        (lang_identify): Constify a char*.
+
 Thu Aug  5 02:40:42 1999  Jeffrey A Law  (law@cygnus.com)
 
        * g77spec.c: Update URLS and mail addresses.

diff --git a/gcc/f/com.c b/gcc/f/com.c
index 849da85b78112275f26e7f1f4d29e82d9c69e514..47ee8a1108497b99f6d678fbdeaf115d93171697 100644 (file)
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -14438,7 +14438,7 @@ lang_printable_name (tree decl, int v)
 #if BUILT_FOR_270
 void
 lang_print_error_function (file)
-     char *file;
+     const char *file;
 {
   static ffeglobal last_g = NULL;
   static ffesymbol last_s = NULL;
@@ -14928,10 +14928,6 @@ char *
 init_parse (filename)
      char *filename;
 {
-#if BUILT_FOR_270
-  extern void (*print_error_function) (char *);
-#endif
-
   /* Open input file.  */
   if (filename == 0 || !strcmp (filename, "-"))
     {
@@ -15023,7 +15019,7 @@ lang_finish ()
     malloc_pool_display (malloc_pool_image ());
 }
 
-char *
+const char *
 lang_identify ()
 {
   return "f77";