diff options
| author | Thomas Quinot <quinot@adacore.com> | 2008-05-27 12:13:35 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-27 12:13:35 +0200 |
| commit | 641d3093f8e49eca0f943fe375a8a13b8968706c (patch) | |
| tree | 54729a70c90bf7787fd270bea0e7589f964a7eb9 /gcc/ada | |
| parent | a573518c6f4f3cab16b5b8d2d97442b137f33e3c (diff) | |
| download | gcc-641d3093f8e49eca0f943fe375a8a13b8968706c.zip gcc-641d3093f8e49eca0f943fe375a8a13b8968706c.tar.gz gcc-641d3093f8e49eca0f943fe375a8a13b8968706c.tar.bz2 | |
exp_aggr.adb: Add ??? comment Fix typo
2008-05-27 Thomas Quinot <quinot@adacore.com>
* exp_aggr.adb: Add ??? comment
Fix typo
From-SVN: r135997
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/exp_aggr.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb index 34b5644..0fca31e 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 |