diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-27 10:13:35 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-27 10:13:35 +0000 |
| commit | 4ef3435ebbd7a703eb05eb02421aa58682f21310 (patch) | |
| tree | 54729a70c90bf7787fd270bea0e7589f964a7eb9 | |
| parent | 27cda0d77b650ff8ea9da72cf610f1ea2c95a04d (diff) | |
| download | ppe42-gcc-4ef3435ebbd7a703eb05eb02421aa58682f21310.tar.gz ppe42-gcc-4ef3435ebbd7a703eb05eb02421aa58682f21310.zip | |
2008-05-27 Thomas Quinot <quinot@adacore.com>
* exp_aggr.adb: Add ??? comment
Fix typo
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135997 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 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 |
