[Ada] Further cleanup in constraint checking code for allocators

2020-06-19  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

	* exp_ch5.adb (Expand_N_Assignment_Statement): Do not apply
	range checks to allocators here.

diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb
index db2ab18afb445abf4547e8753d4dcbb9fe64a95e..a4916ef4af2a0b0798037492a61fd80a54302350 100644 (file)
--- a/gcc/ada/exp_ch5.adb
+++ b/gcc/ada/exp_ch5.adb
@@ -2448,16 +2448,6 @@ package body Exp_Ch5 is
                Apply_Length_Check (Rhs, Etype (Lhs));
             end if;
          end if;
-
-      --  Apply range check for access type case
-
-      elsif Is_Access_Type (Etype (Lhs))
-        and then Nkind (Rhs) = N_Allocator
-        and then Nkind (Expression (Rhs)) = N_Qualified_Expression
-      then
-         Analyze_And_Resolve (Expression (Rhs));
-         Apply_Range_Check
-           (Expression (Rhs), Designated_Type (Etype (Lhs)));
       end if;
 
       --  Ada 2005 (AI-231): Generate the run-time check