2012-01-10 Richard Guenther <rguenther@suse.de>

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

diff --git a/gcc/ada/bindusg.adb b/gcc/ada/bindusg.adb
index a70aaa9..23840d3 100644 (file)
--- a/gcc/ada/bindusg.adb
+++ b/gcc/ada/bindusg.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                B o d y                                   --
 --                                                                          --
---          Copyright (C) 1992-2008, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-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- --
@@ -25,6 +25,7 @@
 
 with Osint;  use Osint;
 with Output; use Output;
+with Switch; use Switch;
 
 with System.WCh_Con; use System.WCh_Con;
 
@@ -55,6 +56,8 @@ package body Bindusg is
       Write_Eol;
       Write_Eol;
 
+      Display_Usage_Version_And_Help;
+
       --  Line for @response_file
 
       Write_Line ("  @<resp_file> Get arguments from response file");
@@ -73,9 +76,9 @@ package body Bindusg is
       Write_Line ("  -a        Automatically initialize elaboration " &
                   "procedure");
 
-      --  Line for A switch
+      --  Line for -A switch
 
-      Write_Line ("  -A        Generate binder program in Ada (default)");
+      Write_Line ("  -A        Give list of ALI files in partition");
 
       --  Line for -b switch
 
@@ -87,10 +90,6 @@ package body Bindusg is
       Write_Line ("  -c        Check only, no generation of " &
                   "binder output file");
 
-      --  Line for C switch
-
-      Write_Line ("  -C        Generate binder program in C");
-
       --  Line for -d switch
 
       Write_Line ("  -dnn[k|m] Default primary stack " &
@@ -99,7 +98,7 @@ package body Bindusg is
       --  Line for D switch
 
       Write_Line ("  -Dnn[k|m] Default secondary stack " &
-                  "size = nnn [kilo|mega] bytes");
+                  "size = nn [kilo|mega] bytes");
 
       --  Line for -e switch
 
@@ -108,7 +107,7 @@ package body Bindusg is
 
       --  Line for -E switch
 
-      Write_Line ("  -E        Store tracebacks in Exception occurrences");
+      Write_Line ("  -E        Store tracebacks in exception occurrences");
 
       --  The -f switch is voluntarily omitted, because it is obsolete
 
@@ -120,6 +119,11 @@ package body Bindusg is
 
       Write_Line ("  -h        Output this usage (help) information");
 
+      --  Line for -H switch
+
+      Write_Line ("  -Hnn      Use nn bit heap where nn is 32 or 64 " &
+                  "(VMS Only)");
+
       --  Lines for -I switch
 
       Write_Line ("  -Idir     Specify library and source files search path");
@@ -142,7 +146,7 @@ package body Bindusg is
 
       --  Line for -m switch
 
-      Write_Line ("  -mnnn     Limit number of detected errors " &
+      Write_Line ("  -mnnn     Limit number of detected errors/warnings " &
                   "to nnn (1-999999)");
 
       --  Line for -M switch
@@ -177,6 +181,10 @@ package body Bindusg is
 
       Write_Line ("  -p        Pessimistic (worst-case) elaboration order");
 
+      --  Line for -P switch
+
+      Write_Line ("  -P        Generate binder file suitable for CodePeer");
+
       --  Line for -r switch
 
       Write_Line ("  -r        List restrictions that could be applied " &
@@ -185,7 +193,7 @@ package body Bindusg is
       --  Line for -R switch
 
       Write_Line
-        ("  -R        List sources referenced in closure (implies -c)");
+        ("  -R        List sources referenced in closure");
 
       --  Line for -s switch