diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2021-05-28 12:53:05 +0200 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-07-09 12:35:24 +0000 |
commit | 48096ca4ac832a7b596b89ed6750a2777f47afa6 (patch) | |
tree | 28672b14fc85f9afe4e32622030b23e502c5d3e6 /gcc/ada/sem_ch6.adb | |
parent | 7e12d491ceff898275074486d6927b0d44a4b8c8 (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.adb | 1 |
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); |