From 641d3093f8e49eca0f943fe375a8a13b8968706c Mon Sep 17 00:00:00 2001 From: Thomas Quinot Date: Tue, 27 May 2008 12:13:35 +0200 Subject: [PATCH] exp_aggr.adb: Add ??? comment Fix typo 2008-05-27 Thomas Quinot * exp_aggr.adb: Add ??? comment Fix typo From-SVN: r135997 --- gcc/ada/exp_aggr.adb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb index 34b5644d6d2..0fca31e3d2a 100644 --- a/gcc/ada/exp_aggr.adb +++ b/gcc/ada/exp_aggr.adb @@ -4041,7 +4041,7 @@ package body Exp_Aggr is -- Aggr_Lo <= Aggr_Hi and then -- (Aggr_Lo < Ind_Lo or else Aggr_Hi > Ind_Hi)] - -- As an optimization try to see if some tests are trivially vacuos + -- As an optimization try to see if some tests are trivially vacuous -- because we are comparing an expression against itself. if Aggr_Lo = Ind_Lo and then Aggr_Hi = Ind_Hi then @@ -4672,6 +4672,8 @@ package body Exp_Aggr is Make_Raise_Constraint_Error (Loc, Condition => Cond, Reason => CE_Length_Check_Failed)); + -- Questionable reason code, shouldn't that be a + -- CE_Range_Check_Failed ??? end if; -- Now look inside the sub-aggregate to see if there is more work -- 2.30.2