com.c (init_parse): Now returns char* containing filename;

Tue Apr 14 15:51:37 1998  Dave Brolley  <brolley@cygnus.com>
	* com.c (init_parse): Now returns char* containing filename;

From-SVN: r19229

diff --git a/gcc/f/ChangeLog.egcs b/gcc/f/ChangeLog.egcs
index ed25735ae1fc3626816f993ecc3ae77aadf23d83..7caac66191ac947e71905c1d0b71ec632e1f3c78 100644 (file)
--- a/gcc/f/ChangeLog.egcs
+++ b/gcc/f/ChangeLog.egcs
@@ -1,3 +1,7 @@
+Tue Apr 14 15:51:37 1998  Dave Brolley  <brolley@cygnus.com>
+
+       * com.c (init_parse): Now returns char* containing filename;
+
 Thu Apr  9 00:18:44 1998  Dave Brolley  (brolley@cygnus.com)
 
        * com.c (finput): New variable.

diff --git a/gcc/f/com.c b/gcc/f/com.c
index 1f58370ad8d94a2f1594702f8b91ebd840ff6dd1..1d6c0eab159b0fa68742919cf98e0d40725ed682 100644 (file)
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -14797,7 +14797,7 @@ init_decl_processing ()
   ffe_init_0 ();
 }
 
-void
+char *
 init_parse (filename)
      char *filename;
 {
@@ -14826,6 +14826,8 @@ init_parse (filename)
 #if BUILT_FOR_270
   print_error_function = lang_print_error_function;
 #endif
+
+  return filename;
 }
 
 void