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 33baf22ace9729cf479f0acfce5a2ad1176a80e2..2e25391a9694e3614793f9cf6fee82484af7fe9d 100644 (file)
--- 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 ea39030c62031dc9fb4ce102f5bb4569ad7862ce..8a6a8d2bb80816f916ed5bf2443617aad254129e 100644 (file)
--- 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;
 }