From: Roger Sayle <roger@eyesopen.com>
Date: Sun, 29 Feb 2004 14:12:20 +0000 (+0000)
Subject: parse.c (ffe_parse_file): Handle the case that main_input_filename is NULL.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=b416fab4598c5fc880844ed5f8bb5e66a91eaede;p=gcc.git

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


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

From-SVN: r78650
---

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 0234eb4b80b..a9941c43b1e 100644
--- 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 e21dcce87b2..d822773f35b 100644
--- 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 ();