From: Bob Duff <duff@adacore.com>
Date: Tue, 20 Aug 2019 09:47:49 +0000 (+0000)
Subject: [Ada] Fix documentation for GNAT.Command_Line.Exit_From_Command_Line
X-Git-Tag: misc/cutover-git~3226
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e1976249a2f4ddf0d98952c2394db9b1e2c634a6;p=thirdparty%2Fgcc.git

[Ada] Fix documentation for GNAT.Command_Line.Exit_From_Command_Line

2019-08-20  Bob Duff  <duff@adacore.com>

gcc/ada/

	* libgnat/g-comlin.ads (Exit_From_Command_Line): Fix
	documentation for GNAT.Command_Line.

From-SVN: r274715
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index ef75e84c6a63..91128b41d261 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2019-08-20  Bob Duff  <duff@adacore.com>
+
+	* libgnat/g-comlin.ads (Exit_From_Command_Line): Fix
+	documentation for GNAT.Command_Line.
+
 2019-08-20  Pierre-Marie de Rodat  <derodat@adacore.com>
 
 	PR ada/91492
diff --git a/gcc/ada/libgnat/g-comlin.ads b/gcc/ada/libgnat/g-comlin.ads
index 3708c37b842b..188b03506ad7 100644
--- a/gcc/ada/libgnat/g-comlin.ads
+++ b/gcc/ada/libgnat/g-comlin.ads
@@ -731,8 +731,8 @@ package GNAT.Command_Line is
    --  Full_Switch omits the first leading '-'.
 
    Exit_From_Command_Line : exception;
-   --  Emitted when the program should exit. This is called when Getopt below
-   --  has seen -h, --help or an invalid switch.
+   --  Raised when the program should exit because Getopt below has seen
+   --  a -h or --help switch.
 
    procedure Getopt
      (Config      : Command_Line_Configuration;