[gcc r15-6762] ada: Turn Is_Effective_Use_Clause from syntactic to semantic flag

[Marc Poulhi?s via Gcc-cvs]

https://gcc.gnu.org/g:8c850ddf0f2648e9be6067bb76cc2322c1a8b6a5

commit r15-6762-g8c850ddf0f2648e9be6067bb76cc2322c1a8b6a5
Author: Piotr Trojanek <troja...@adacore.com>
Date:   Fri Dec 20 13:09:22 2024 +0100

    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.

Diff:
---
 gcc/ada/gen_il-gen-gen_nodes.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gcc/ada/gen_il-gen-gen_nodes.adb b/gcc/ada/gen_il-gen-gen_nodes.adb
index ca46bcebdd98..1f5dc6d3803e 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),