diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2024-12-20 13:09:22 +0100 |
|---|---|---|
| committer | Marc Poulhiès <dkm@gcc.gnu.org> | 2025-01-10 10:39:55 +0100 |
| commit | 8c850ddf0f2648e9be6067bb76cc2322c1a8b6a5 (patch) | |
| tree | 836dce2e152545863e3cd0fb347680c8e07994b2 | |
| parent | 2b27522090c4f98081db0dbfa035ae6501bbf498 (diff) | |
| download | gcc-8c850ddf0f2648e9be6067bb76cc2322c1a8b6a5.zip gcc-8c850ddf0f2648e9be6067bb76cc2322c1a8b6a5.tar.gz gcc-8c850ddf0f2648e9be6067bb76cc2322c1a8b6a5.tar.bz2 | |
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.
| -rw-r--r-- | gcc/ada/gen_il-gen-gen_nodes.adb | 4 |
1 files 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 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), |