aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/sem_ch6.adb
diff options
context:
space:
mode:
authorPiotr Trojanek <trojanek@adacore.com>2021-05-28 12:53:05 +0200
committerPierre-Marie de Rodat <derodat@adacore.com>2021-07-09 12:35:24 +0000
commit48096ca4ac832a7b596b89ed6750a2777f47afa6 (patch)
tree28672b14fc85f9afe4e32622030b23e502c5d3e6 /gcc/ada/sem_ch6.adb
parent7e12d491ceff898275074486d6927b0d44a4b8c8 (diff)
[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.
Diffstat (limited to 'gcc/ada/sem_ch6.adb')
-rw-r--r--gcc/ada/sem_ch6.adb1
1 files changed, 0 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb
index fbb2b55926a..aeb1cad2ac4 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);