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: upstream/12.2.0~8141
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=60b803a7f19a5b4df6694f9a579050996b8dfba4;p=platform%2Fupstream%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 d4cd8d7..e6309e6 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);