From 8c850ddf0f2648e9be6067bb76cc2322c1a8b6a5 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Fri, 20 Dec 2024 13:09:22 +0100 Subject: ada: Turn Is_Effective_Use_Clause from syntactic to semantic flag For a USE clause being effective is a semantic property, not a syntactic. AST cleanup; behavior is unaffected. gcc/ada/ChangeLog: * gen_il-gen-gen_nodes.adb (Gen_Nodes): Change Is_Effective_Use_Clause from syntactic to semantic property. --- gcc/ada/gen_il-gen-gen_nodes.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc') diff --git a/gcc/ada/gen_il-gen-gen_nodes.adb b/gcc/ada/gen_il-gen-gen_nodes.adb index ca46bceb..1f5dc6d 100644 --- a/gcc/ada/gen_il-gen-gen_nodes.adb +++ b/gcc/ada/gen_il-gen-gen_nodes.adb @@ -782,7 +782,7 @@ begin -- Gen_IL.Gen.Gen_Nodes Cc (N_Use_Package_Clause, N_Later_Decl_Item, (Sy (Name, Node_Id, Default_Empty), - Sy (Is_Effective_Use_Clause, Flag), + Sm (Is_Effective_Use_Clause, Flag), Sm (Entity_Or_Associated_Node, Node_Id), -- just Associated_Node Sm (Hidden_By_Use_Clause, Elist_Id), Sm (More_Ids, Flag), @@ -1497,8 +1497,8 @@ begin -- Gen_IL.Gen.Gen_Nodes Cc (N_Use_Type_Clause, Node_Kind, (Sy (Subtype_Mark, Node_Id, Default_Empty), - Sy (Is_Effective_Use_Clause, Flag), Sy (All_Present, Flag), + Sm (Is_Effective_Use_Clause, Flag), Sm (Hidden_By_Use_Clause, Elist_Id), Sm (More_Ids, Flag), Sm (Next_Use_Clause, Node_Id), -- cgit v1.1