From: Eric Botcazou <ebotca...@adacore.com>
It has gone unnoticed for decades because it changes nothing in practice.
gcc/ada/ChangeLog:
* gcc-interface/trans.cc (process_decls): Remove tests on Nkind that
contain a typo and would be redundant if written correctly.
Tested on x86_64-pc-linux-gnu, committed on master.
---
gcc/ada/gcc-interface/trans.cc | 8 ++------
1 file changed, 2 insertions(+), 6 deletions(-)
diff --git a/gcc/ada/gcc-interface/trans.cc b/gcc/ada/gcc-interface/trans.cc
index 5f8a18eebb7..a27804b91b8 100644
--- a/gcc/ada/gcc-interface/trans.cc
+++ b/gcc/ada/gcc-interface/trans.cc
@@ -9765,9 +9765,7 @@ process_decls (List_Id gnat_decls, List_Id gnat_decls2,
{
/* For package specs, we recurse inside the declarations,
thus taking the two pass approach inside the boundary. */
- if (Nkind (gnat_decl) == N_Package_Declaration
- && (Nkind (Specification (gnat_decl)
- == N_Package_Specification)))
+ if (Nkind (gnat_decl) == N_Package_Declaration)
process_decls (Visible_Declarations (Specification (gnat_decl)),
Private_Declarations (Specification (gnat_decl)),
true, false);
@@ -9853,9 +9851,7 @@ process_decls (List_Id gnat_decls, List_Id gnat_decls2,
|| Nkind (gnat_decl) == N_Protected_Body_Stub)
add_stmt (gnat_to_gnu (gnat_decl));
- else if (Nkind (gnat_decl) == N_Package_Declaration
- && (Nkind (Specification (gnat_decl)
- == N_Package_Specification)))
+ else if (Nkind (gnat_decl) == N_Package_Declaration)
process_decls (Visible_Declarations (Specification (gnat_decl)),
Private_Declarations (Specification (gnat_decl)),
false, true);
--
2.43.0
