errout.ads: Minor reformatting.

2011-09-19  Robert Dewar  <dewar@adacore.com>

	* errout.ads: Minor reformatting.

From-SVN: r178958

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 88ecf6b9c0e5917e0d57bbccc353a0b339def349..55e38dd851f16f463e735b282295f3725176571a 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2011-09-19  Robert Dewar  <dewar@adacore.com>
+
+       * errout.ads: Minor reformatting.
+
 2011-09-19  Ed Schonberg  <schonberg@adacore.com>
 
        * sem_ch6.adb (Analyze_Expression_Function): When the expression

diff --git a/gcc/ada/errout.ads b/gcc/ada/errout.ads
index ddf34f79f03a3b58d9345b1b421e6cc4f423f755..fd2d616f21d332c64de0736055e472ec77c1cd2f 100644 (file)
--- a/gcc/ada/errout.ads
+++ b/gcc/ada/errout.ads
@@ -261,8 +261,7 @@ package Errout is
    --      it, since it makes it clear that the continuation is part of an
    --      unconditional message.
 
-   --    Insertion character !! (unconditional warning)
-
+   --    Insertion character !! (Double exclamation: unconditional warning)
    --      Normally warning messages issued in other than the main unit are
    --      suppressed. If the message ends with !! then this suppression is
    --      avoided. This is currently used by the Compile_Time_Warning pragma
@@ -452,7 +451,7 @@ package Errout is
 
    Error_Msg_Warn : Boolean renames Err_Vars.Error_Msg_Warn;
    --  Used if current message contains a < insertion character to indicate
-   --  if the current message is a warning message.
+   --  if the current message is a warning message. ??? who turns this off???
 
    Error_Msg_String : String  renames Err_Vars.Error_Msg_String;
    Error_Msg_Strlen : Natural renames Err_Vars.Error_Msg_Strlen;