[gcc r12-6307] [Ada] Fix style in comments about warning messages

[Pierre-Marie de Rodat <pmderodat@gcc.gnu.org>]

https://gcc.gnu.org/g:005146582c2ac4d6d451784f15781f11ce4f225b

commit r12-6307-g005146582c2ac4d6d451784f15781f11ce4f225b
Author: Piotr Trojanek <trojanek@adacore.com>
Date:   Tue Dec 7 17:00:01 2021 +0100

    [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:
---
 gcc/ada/errout.adb   | 2 +-
 gcc/ada/erroutc.ads  | 2 +-
 gcc/ada/sem_util.adb | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb
index 73bcfc5567d..652dbf0422a 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 0c194e803d8..1c8940e639b 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 e07e48749d6..3cf94292f79 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.