From: Piotr Trojanek <trojanek@adacore.com>
Date: Fri, 28 May 2021 10:53:05 +0000 (+0200)
Subject: [Ada] Remove an unnecessary local constant
X-Git-Tag: basepoints/gcc-13~6122
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=48096ca4ac832a7b596b89ed6750a2777f47afa6;p=thirdparty%2Fgcc.git

[Ada] Remove an unnecessary local constant

gcc/ada/

	* sem_ch6.adb (Analyze_Expression_Function): A local Expr
	constant was shadowing a global constant with the same name and
	the same value.
---

diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb
index fbb2b55926a3..aeb1cad2ac45 100644
--- a/gcc/ada/sem_ch6.adb
+++ b/gcc/ada/sem_ch6.adb
@@ -532,7 +532,6 @@ package body Sem_Ch6 is
 
          declare
             Decls : List_Id            := List_Containing (N);
-            Expr  : constant Node_Id   := Expression (Ret);
             Par   : constant Node_Id   := Parent (Decls);
             Typ   : constant Entity_Id := Etype (Def_Id);