From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1914) id 55A6A3857C63; Fri, 1 Oct 2021 06:14:41 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 55A6A3857C63 MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: Pierre-Marie de Rodat To: gcc-cvs@gcc.gnu.org Subject: [gcc r12-4007] [Ada] Add N_Is_Decl X-Act-Checkin: gcc X-Git-Author: Richard Kenner X-Git-Refname: refs/heads/master X-Git-Oldrev: 7916838b6674e7d0ed0c488d22e89e2b679f1292 X-Git-Newrev: 3e20570d9076d8792db2c22eb12261c47e161ab0 Message-Id: <20211001061441.55A6A3857C63@sourceware.org> Date: Fri, 1 Oct 2021 06:14:41 +0000 (GMT) X-BeenThere: gcc-cvs@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-cvs mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Fri, 01 Oct 2021 06:14:41 -0000 https://gcc.gnu.org/g:3e20570d9076d8792db2c22eb12261c47e161ab0 commit r12-4007-g3e20570d9076d8792db2c22eb12261c47e161ab0 Author: Richard Kenner Date: Sat Aug 7 09:21:32 2021 -0400 [Ada] Add N_Is_Decl gcc/ada/ * gen_il-gen-gen_nodes.adb (N_Is_Decl): Add. * gen_il-types.ads (N_Is_Decl): Likewise. Diff: --- gcc/ada/gen_il-gen-gen_nodes.adb | 16 +++++++++++++++- gcc/ada/gen_il-types.ads | 1 + 2 files changed, 16 insertions(+), 1 deletion(-) diff --git a/gcc/ada/gen_il-gen-gen_nodes.adb b/gcc/ada/gen_il-gen-gen_nodes.adb index 32cc89a081a..2d226bfb443 100644 --- a/gcc/ada/gen_il-gen-gen_nodes.adb +++ b/gcc/ada/gen_il-gen-gen_nodes.adb @@ -577,7 +577,8 @@ begin -- Gen_IL.Gen.Gen_Nodes Ab (N_Declaration, Node_Kind); -- Note: this includes all constructs normally thought of as declarations - -- except those that are separately grouped in N_Later_Decl_Item. + -- except those that are separately grouped in N_Later_Decl_Item. But + -- Declaration_Node may return yet more node types; see N_Is_Decl below. Cc (N_Component_Declaration, N_Declaration, (Sy (Defining_Identifier, Node_Id), @@ -1672,4 +1673,17 @@ begin -- Gen_IL.Gen.Gen_Nodes -- Some N_Attribute_Reference nodes may also represent an entity. See -- Is_Entity_Name. + Union (N_Is_Decl, + Children => + (N_Declaration, + N_Discriminant_Specification, + N_Enumeration_Type_Definition, + N_Exception_Handler, + N_Later_Decl_Item, + N_Package_Specification, + N_Parameter_Specification, + N_Renaming_Declaration, + N_Subprogram_Specification)); + -- Nodes that can be returned by Declaration_Node + end Gen_IL.Gen.Gen_Nodes; diff --git a/gcc/ada/gen_il-types.ads b/gcc/ada/gen_il-types.ads index 4aadf99cf77..f7de1501874 100644 --- a/gcc/ada/gen_il-types.ads +++ b/gcc/ada/gen_il-types.ads @@ -94,6 +94,7 @@ package Gen_IL.Types is N_Has_Condition, N_Has_Entity, N_Has_Etype, + N_Is_Decl, N_Is_Index, N_Multiplying_Operator, N_Later_Decl_Item,