2011-10-16 Tristan Gingold <gingold@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / gnatname.adb

diff --git a/gcc/ada/gnatname.adb b/gcc/ada/gnatname.adb
index 8078759..c741834 100644 (file)
--- a/gcc/ada/gnatname.adb
+++ b/gcc/ada/gnatname.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 2001-2010, Free Software Foundation, Inc.         --
+--          Copyright (C) 2001-2011, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -309,9 +309,13 @@ procedure Gnatname is
                   declare
                      New_Arguments : Argument_Data;
                      pragma Warnings (Off, New_Arguments);
-                     --  Declaring this defaulted itialized object ensures that
-                     --  the new allocated component of table Arguments is
-                     --  correctly initialized.
+                     --  Declaring this defaulted initialized object ensures
+                     --  that the new allocated component of table Arguments
+                     --  is correctly initialized.
+
+                     --  This is VERY ugly, Table should never be used with
+                     --  data requiring default initialization. We should
+                     --  find a way to avoid violating this rule ???
 
                   begin
                      Arguments.Append (New_Arguments);
@@ -508,6 +512,8 @@ procedure Gnatname is
          Write_Eol;
          Write_Line ("switches:");
 
+         Display_Usage_Version_And_Help;
+
          Write_Line ("  --subdirs=dir real obj/lib/exec dirs are subdirs");
          Write_Eol;