[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.

3 files changed, 3 insertions, 3 deletions

diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb
index 73bcfc5..652dbf042 100644
--- 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 0c194e8..1c8940e 100644
--- 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 e07e487..3cf9429 100644
--- 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.