aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gcc/ada/ChangeLog4
-rw-r--r--gcc/ada/errout.ads5
2 files changed, 6 insertions, 3 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 88ecf6b..55e38dd 100644
--- 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 ddf34f7..fd2d616 100644
--- 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;