From cdfdd0de395a24fcc39749cc5bb545ace6f5bf4b Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Tue, 7 Dec 2021 10:32:53 +0100 Subject: [PATCH] [Ada] Fix style in calls to Compile_Time_Constraint_Error gcc/ada/ * checks.adb (Null_Exclusion_Static_Checks, Selected_Range_Checks): Fix style. --- 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 6fb33b45ae94..8e8efd25e55b 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; -- 2.43.5