From: Yannick Moy <moy@adacore.com>
Date: Wed, 10 Feb 2021 14:23:06 +0000 (+0100)
Subject: [Ada] Extend function to retrieve first/last nodes to all declarations
X-Git-Tag: basepoints/gcc-13~6838
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6ae60a649ee76755632adef16decdf90fb8c1ec8;p=thirdparty%2Fgcc.git

[Ada] Extend function to retrieve first/last nodes to all declarations

gcc/ada/

	* errout.adb (First_And_Last_Node): Also apply to arbitrary late
	declarations, not only subprogram specs.
---

diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb
index 09092f93d301..42a1099c8f4f 100644
--- a/gcc/ada/errout.adb
+++ b/gcc/ada/errout.adb
@@ -1785,7 +1785,7 @@ package body Errout is
                        | N_Declaration
                        | N_Access_To_Subprogram_Definition
                        | N_Generic_Instantiation
-                       | N_Subprogram_Declaration
+                       | N_Later_Decl_Item
                        | N_Use_Package_Clause
                        | N_Array_Type_Definition
                        | N_Renaming_Declaration