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

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 7691bfd..ae81faf 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,10 @@
+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.

diff --git a/gcc/c-lex.c b/gcc/c-lex.c
index 3a2eb0a..26c4b13 100644 (file)
--- a/gcc/c-lex.c
+++ b/gcc/c-lex.c
@@ -185,7 +185,7 @@ remember_protocol_qualifiers ()
       wordlist[i].name = "oneway";   
 }
 \f
-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

diff --git a/gcc/toplev.c b/gcc/toplev.c
index b841b2c..96c21e3 100644 (file)
--- a/gcc/toplev.c
+++ b/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