From: Geert Bosch <bosch@gnat.com>
Date: Tue, 29 Oct 2002 22:01:18 +0000 (+0100)
Subject: re PR ada/6558 (Wrongly reverted patches)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a7512decd04856f2515c34a6981fd96859e57394;p=gcc.git

re PR ada/6558 (Wrongly reverted patches)

        PR ada/6558
        * misc.c: Unrevert misc.c (1.13)

From-SVN: r58636
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 33baf22ace9..2e25391a969 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2002-10-29  Geert bosch  <bosch@gnat.com>
+        PR ada/6558
+        * misc.c: Unrevert misc.c (1.13)
+
 2002-10-28  Nathanael Nerode  <neroden@gcc.gnu.org>
 
 	* a-chlat9.ads a-cwila9.ads a-dynpri.adb a-retide.adb: Update
diff --git a/gcc/ada/misc.c b/gcc/ada/misc.c
index ea39030c620..8a6a8d2bb80 100644
--- a/gcc/ada/misc.c
+++ b/gcc/ada/misc.c
@@ -209,7 +209,7 @@ gnat_parse_file (set_yydebug)
    it cannot decode. This routine returns 1 if it is successful, otherwise
    it returns 0. */
 
-int
+static int
 gnat_decode_option (argc, argv)
      int argc ATTRIBUTE_UNUSED;
      char **argv;
@@ -276,7 +276,7 @@ gnat_decode_option (argc, argv)
 
 /* Initialize for option processing.  */
 
-void
+static void
 gnat_init_options ()
 {
   /* Initialize gnat_argv with save_argv size */
@@ -339,6 +339,10 @@ gnat_init (filename)
   internal_reference_types ();
 
   set_lang_adjust_rli (gnat_adjust_rli);
+
+  if (filename == 0)
+    filename = "";
+
   return filename;
 }