* parse.c (ffe_parse_file): Handle the case that main_input_filename

	is NULL.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@78650 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 0234eb4..a9941c4 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,8 @@
+2004-02-29  Roger Sayle  <roger@eyesopen.com>
+
+       * parse.c (ffe_parse_file): Handle the case that main_input_filename
+       is NULL.
+
 2004-02-24  Michael Matz  <matz@suse.de>
 
        * Make-lang.in (sta.o-warn): Delete.

diff --git a/gcc/f/parse.c b/gcc/f/parse.c
index e21dcce..d822773 100644 (file)
--- a/gcc/f/parse.c
+++ b/gcc/f/parse.c
@@ -31,6 +31,7 @@ extern FILE *finput;
 void
 ffe_parse_file (int set_yydebug ATTRIBUTE_UNUSED)
 {
+  const char *fname;
   ffewhereFile wf;
 
   if (ffe_is_version ())
@@ -39,8 +40,9 @@ ffe_parse_file (int set_yydebug ATTRIBUTE_UNUSED)
   if (!ffe_is_pedantic ())
     ffe_set_is_pedantic (pedantic);
 
-  wf = ffewhere_file_new (main_input_filename, strlen (main_input_filename));
-  ffecom_file (main_input_filename);
+  fname = main_input_filename ? main_input_filename : "<stdin>";
+  wf = ffewhere_file_new (fname, strlen (fname));
+  ffecom_file (fname);
   ffe_file (wf, finput);
 
   ffecom_finish_compile ();