From: Piotr Trojanek <trojanek@adacore.com>
Date: Sun, 24 Jan 2021 15:02:49 +0000 (+0100)
Subject: [Ada] Avoid repeated analysis of constraint ranges
X-Git-Tag: basepoints/gcc-13~7757
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=60b803a7f19a5b4df6694f9a579050996b8dfba4;p=thirdparty%2Fgcc.git

[Ada] Avoid repeated analysis of constraint ranges

gcc/ada/

	* sem_ch3.adb (Constraint_Index): Remove redundant problematic
	analysis.
---

diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index d4cd8d7e86a8..e6309e686848 100644
--- a/gcc/ada/sem_ch3.adb
+++ b/gcc/ada/sem_ch3.adb
@@ -14171,8 +14171,6 @@ package body Sem_Ch3 is
       then
          --  A Range attribute will be transformed into N_Range by Resolve
 
-         Analyze (S);
-         Set_Etype (S, T);
          R := S;
 
          Process_Range_Expr_In_Decl (R, T);