From: Eric Botcazou <ebotcazou@adacore.com>
Date: Fri, 11 Oct 2024 20:40:29 +0000 (+0200)
Subject: ada: Fix ancient typo in process_decls
X-Git-Tag: basepoints/gcc-16~4628
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=bffba3d2d33d4d324149df08ce0df07f85b0e1ae;p=thirdparty%2Fgcc.git

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 --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);