[Ada] Fix style in comments about warning messages

gcc/ada/

	* errout.adb (Error_Msg_Internal): Reorder words.
	* erroutc.ads (Is_Warning_Msg): Add closing paren.
	* sem_util.adb (Compile_Time_Constraint_Error): Fix casing.

diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb
index 73bcfc5567daca5fa50e68b95cf306227ed61be3..652dbf0422ab2e1ce9621f985ca786c89e4e3456 100644 (file)
--- a/gcc/ada/errout.adb
+++ b/gcc/ada/errout.adb
@@ -1049,7 +1049,7 @@ package body Errout is
          elsif No (Cunit (Main_Unit)) then
             null;
 
-         --  If the flag location is not in the main extended source unit, then
+         --  If the flag location is not in the extended main source unit, then
          --  we want to eliminate the warning, unless it is in the extended
          --  main code unit and we want warnings on the instance.
 

diff --git a/gcc/ada/erroutc.ads b/gcc/ada/erroutc.ads
index 0c194e803d868637551566b1d022be4f7b64cb9f..1c8940e639b5728852918430877b4d3216a9ff61 100644 (file)
--- a/gcc/ada/erroutc.ads
+++ b/gcc/ada/erroutc.ads
@@ -69,7 +69,7 @@ package Erroutc is
 
    Is_Warning_Msg : Boolean := False;
    --  Set True to indicate if current message is warning message (contains ?
-   --  or contains < and Error_Msg_Warn is True.
+   --  or contains < and Error_Msg_Warn is True).
 
    Is_Info_Msg : Boolean := False;
    --  Set True to indicate that the current message starts with the characters

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index e07e48749d6d25b3408cebd54f12c188d32fbc42..3cf94292f79bc072dcd396cc61feec2c34686e39 100644 (file)
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -6604,7 +6604,7 @@ package body Sem_Util is
       Error_Msg_Warn := Warn or SPARK_Mode /= On;
 
       --  A static constraint error in an instance body is not a fatal error.
-      --  we choose to inhibit the message altogether, because there is no
+      --  We choose to inhibit the message altogether, because there is no
       --  obvious node (for now) on which to post it. On the other hand the
       --  offending node must be replaced with a constraint_error in any case.