toplev.c (compile_file): Call init_parse using new interface.

Wed Apr 15 14:50:05 1998  Dave Brolley  <brolley@cygnus.com>
	* toplev.c (compile_file): Call init_parse using new interface.
	(init_lex): Remove declaration.
	* c-lex.c (init_parse): Now returns char* containing filename.

From-SVN: r19227

gcc/ChangeLog

+Wed Apr 15 14:50:05 1998  Dave Brolley  <brolley@cygnus.com>
+
+	* toplev.c (compile_file): Call init_parse using new interface.
+	(init_lex): Remove declaration.
+
+	* c-lex.c (init_parse): Now returns char* containing filename.
+
 Wed Apr 15 12:37:10 1998  Jeffrey A Law  (law@cygnus.com)
 
 	* pa.h (LEGITIMIZE_RELOAD_ADDRESS): Do nothing if not optimizing.

gcc/c-lex.c

@@ -185,7 +185,7 @@ remember_protocol_qualifiers ()
       wordlist[i].name = "oneway";   
 }
 
-void
+char *
 init_parse (filename)
      char *filename;
 {
@@ -220,6 +220,8 @@ init_parse (filename)
   if (! cpp_start_read (&parse_in, filename))
     abort ();
 #endif
+
+  return filename;
 }
 
 void

gcc/toplev.c

@@ -131,8 +131,7 @@ extern char *version_string, *language_string;
 extern int size_directive_output;
 extern tree last_assemble_variable_decl;
 
-extern void init_lex ();
-extern void init_parse PVPROTO((char *));
+extern char *init_parse PVPROTO((char *));
 extern void finish_parse ();
 extern void init_decl_processing ();
 extern void init_obstacks ();
@@ -2274,7 +2273,7 @@ compile_file (name)
 
   init_obstacks ();
   init_tree_codes ();
-  init_parse (name);
+  name = init_parse (name);
   init_rtl ();
   init_emit_once (debug_info_level == DINFO_LEVEL_NORMAL
 		  || debug_info_level == DINFO_LEVEL_VERBOSE