diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2024-10-11 22:40:29 +0200 |
|---|---|---|
| committer | Marc Poulhiès <dkm@gcc.gnu.org> | 2024-11-04 16:57:59 +0100 |
| commit | bffba3d2d33d4d324149df08ce0df07f85b0e1ae (patch) | |
| tree | 188b7e52398301cb4eca33bb82064f11a687b1de /gcc | |
| parent | 16007e34ef4019f7cba9c9b718f5e43cc045e920 (diff) | |
| download | gcc-bffba3d2d33d4d324149df08ce0df07f85b0e1ae.zip gcc-bffba3d2d33d4d324149df08ce0df07f85b0e1ae.tar.gz gcc-bffba3d2d33d4d324149df08ce0df07f85b0e1ae.tar.bz2 | |
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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.cc | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/gcc/ada/gcc-interface/trans.cc b/gcc/ada/gcc-interface/trans.cc index 5f8a18e..a27804b 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); |