aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPiotr Trojanek <trojanek@adacore.com>2022-08-08 16:18:38 +0200
committerMarc Poulhiès <poulhies@adacore.com>2022-09-06 09:14:21 +0200
commitff6b2a3e70562f4250504fc10aa83eeb98e653d7 (patch)
treeaca7e992b9015e99e86ecdbbd2a0f1cd3bd36400
parenteae9f5d25713013a6fa3e6c60f7f744ab3bf778b (diff)
downloadgcc-ff6b2a3e70562f4250504fc10aa83eeb98e653d7.zip
gcc-ff6b2a3e70562f4250504fc10aa83eeb98e653d7.tar.gz
gcc-ff6b2a3e70562f4250504fc10aa83eeb98e653d7.tar.bz2
[Ada] Cleanup unnecessary shadowing in expansion of attribute Old
Code cleanup; semantics is unaffected. gcc/ada/ * exp_attr.adb (Expand_N_Attribute_Reference [Attribute_Old]): Remove unnecessary local constant that was shadowing another constant with the same initial value.
-rw-r--r--gcc/ada/exp_attr.adb1
1 files changed, 0 insertions, 1 deletions
diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb
index c4187c9..21c4828 100644
--- a/gcc/ada/exp_attr.adb
+++ b/gcc/ada/exp_attr.adb
@@ -4884,7 +4884,6 @@ package body Exp_Attr is
---------
when Attribute_Old => Old : declare
- Typ : constant Entity_Id := Etype (N);
CW_Temp : Entity_Id;
CW_Typ : Entity_Id;
Decl : Node_Id;