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

diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb
index 34b5644d6d243452378cebf67ea0ae90064daac5..0fca31e3d2a050c3544bfa3b19364496d9b89bf3 100644 (file)
--- 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