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

gcc/f/ChangeLog.egcs

+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.

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