Rewrite the sequence of:
if V = Enum_1
or else V = Enum_2
or else V in Enum_R
...
with a membership test.
gcc/ada/ChangeLog:
* sem_util.adb (Enclosing_Declaration): Refactor membership test.
Tested on x86_64-pc-linux-gnu, committed on master.
---
gcc/ada/sem_util.adb | 12 +++++-------
1 file changed, 5 insertions(+), 7 deletions(-)
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index f8f18d3d48b..60973af61cf 100644
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -7664,13 +7664,11 @@ package body Sem_Util is
begin
while Present (Decl)
- and then not (Nkind (Decl) in N_Declaration
- or else
- Nkind (Decl) in N_Later_Decl_Item
- or else
- Nkind (Decl) in N_Renaming_Declaration
- or else
- Nkind (Decl) = N_Number_Declaration)
+ and then not (Nkind (Decl) in
+ N_Declaration
+ | N_Later_Decl_Item
+ | N_Renaming_Declaration
+ | N_Number_Declaration)
loop
Decl := Parent (Decl);
end loop;
--
2.53.0
