exp_attr.adb (Mod): Evaluate condition expression with checks off, to prevent spuriou...

2005-07-04  Ed Schonberg  <schonberg@adacore.com>

	* exp_attr.adb (Mod): Evaluate condition expression with checks off,
	to prevent spurious warnings.

From-SVN: r101577

diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb
index e80a15db82345d5a68997631866d3617330829d1..0c43d595207049b960e16d3c62b89400bfe82af5 100644 (file)
--- a/gcc/ada/exp_attr.adb
+++ b/gcc/ada/exp_attr.adb
@@ -2372,7 +2372,7 @@ package body Exp_Attr is
                   Right_Opnd => Make_Integer_Literal (Loc, Modv))));
 
          --  Here we know that the modulus is larger than type'Last of the
-         --  integer type. There are three possible cases to consider:
+         --  integer type. There are two cases to consider:
 
          --    a) The integer value is non-negative. In this case, it is
          --    returned as the result (since it is less than the modulus).
@@ -2393,6 +2393,10 @@ package body Exp_Attr is
          --    Furthermore, (-value - 1) can be expressed as -(value + 1)
          --    which we can compute using the integer base type.
 
+         --  Once this is done we analyze the conditional expression without
+         --  range checks, because we know everything is in range, and we
+         --  want to prevent spurious warnings on either branch.
+
          else
             Rewrite (N,
               Make_Conditional_Expression (Loc,
@@ -2420,7 +2424,7 @@ package body Exp_Attr is
 
          end if;
 
-         Analyze_And_Resolve (N, Btyp);
+         Analyze_And_Resolve (N, Btyp, All_Checks);
       end Mod_Case;
 
       -----------