From: Piotr Trojanek <trojanek@adacore.com>
Date: Tue, 7 Dec 2021 09:32:53 +0000 (+0100)
Subject: [Ada] Fix style in calls to Compile_Time_Constraint_Error
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=cdfdd0de395a24fcc39749cc5bb545ace6f5bf4b;p=test_jj.git

[Ada] Fix style in calls to Compile_Time_Constraint_Error

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
index 6fb33b4..8e8efd2 100644
--- 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;