[gcc r12-6304] [Ada] Fix style in calls to Compile_Time_Constraint_Error

Pierre-Marie de Rodat pmderodat@gcc.gnu.org
Thu Jan 6 17:14:03 GMT 2022


https://gcc.gnu.org/g:cdfdd0de395a24fcc39749cc5bb545ace6f5bf4b

commit r12-6304-gcdfdd0de395a24fcc39749cc5bb545ace6f5bf4b
Author: Piotr Trojanek <trojanek@adacore.com>
Date:   Tue Dec 7 10:32:53 2021 +0100

    [Ada] Fix style in calls to Compile_Time_Constraint_Error
    
    gcc/ada/
    
            * checks.adb (Null_Exclusion_Static_Checks,
            Selected_Range_Checks): Fix style.

Diff:
---
 gcc/ada/checks.adb | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb
index 6fb33b45ae9..8e8efd25e55 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;


More information about the Gcc-cvs mailing list