Cleanup related to handling of -gnatwE (warnings-as-errors) in instances
of generic units.

Tested on x86_64-pc-linux-gnu, committed on trunk

gcc/ada/

        * checks.adb (Null_Exclusion_Static_Checks,
        Selected_Range_Checks): Fix style.
diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb
--- a/gcc/ada/checks.adb
+++ b/gcc/ada/checks.adb
@@ -4455,8 +4455,8 @@ package body Checks is
 
             Discard_Node
               (Compile_Time_Constraint_Error
-                 (N      => N,
-                  Msg    =>
+                 (N   => N,
+                  Msg =>
                     "(Ada 2005) null-excluding component % of object % must "
                     & "be initialized??",
                   Ent => Defining_Identifier (Comp)));
@@ -4467,8 +4467,8 @@ package body Checks is
          elsif Array_Comp then
             Discard_Node
               (Compile_Time_Constraint_Error
-                 (N      => N,
-                  Msg    =>
+                 (N   => N,
+                  Msg =>
                     "(Ada 2005) null-excluding array components must "
                     & "be initialized??",
                   Ent => Defining_Identifier (N)));
@@ -10896,8 +10896,8 @@ package body Checks is
                   Add_Check
                     (Compile_Time_Constraint_Error
                        ((if Present (Warn_Node)
-                        then Warn_Node else Low_Bound (Expr)),
-                        "static value does not equal lower bound of}??",
+                         then Warn_Node else Low_Bound (Expr)),
+                         "static value does not equal lower bound of}??",
                         T_Typ));
                   Check_Added := True;
                end if;


Reply via email to