diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-12-07 10:32:53 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-01-06 17:11:37 +0000 |
| commit | cdfdd0de395a24fcc39749cc5bb545ace6f5bf4b (patch) | |
| tree | dd02f33fb8d79ba56459c01110dd7da5f629dd90 | |
| parent | ffbc891aaa97892303bded2b1c07b2bf6034a679 (diff) | |
| download | gcc-cdfdd0de395a24fcc39749cc5bb545ace6f5bf4b.zip gcc-cdfdd0de395a24fcc39749cc5bb545ace6f5bf4b.tar.gz gcc-cdfdd0de395a24fcc39749cc5bb545ace6f5bf4b.tar.bz2 | |
[Ada] Fix style in calls to Compile_Time_Constraint_Error
gcc/ada/
* checks.adb (Null_Exclusion_Static_Checks,
Selected_Range_Checks): Fix style.
| -rw-r--r-- | gcc/ada/checks.adb | 12 |
1 files changed, 6 insertions, 6 deletions
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; |