https://gcc.gnu.org/g:bffba3d2d33d4d324149df08ce0df07f85b0e1ae
commit r15-4925-gbffba3d2d33d4d324149df08ce0df07f85b0e1ae
Author: Eric Botcazou <ebotca...@adacore.com>
Date: Fri Oct 11 22:40:29 2024 +0200
ada: Fix ancient typo in process_decls
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.
Diff:
---
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 5f8a18eebb72..a27804b91b8f 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);
