aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPiotr Trojanek <trojanek@adacore.com>2024-02-16 15:10:06 +0100
committerMarc Poulhiès <poulhies@adacore.com>2024-05-16 10:49:27 +0200
commit8b73cb99bbd02db85d213c7120dbaa366c360e45 (patch)
treeca4f473512bb71bb08db34970fc2675829ba3d01
parent06078187797f077f0548c55ac8cb8eca4094f1c3 (diff)
downloadgcc-8b73cb99bbd02db85d213c7120dbaa366c360e45.zip
gcc-8b73cb99bbd02db85d213c7120dbaa366c360e45.tar.gz
gcc-8b73cb99bbd02db85d213c7120dbaa366c360e45.tar.bz2
ada: Remove Aspect_Specifications field from N_Procedure_Specification
Sync Has_Aspect_Specifications_Flag with the actual flags in the AST. Code cleanup; behavior is unaffected. gcc/ada/ * gen_il-gen-gen_nodes.adb (N_Procedure_Specification): Remove Aspect_Specifications field.
-rw-r--r--gcc/ada/gen_il-gen-gen_nodes.adb1
1 files changed, 0 insertions, 1 deletions
diff --git a/gcc/ada/gen_il-gen-gen_nodes.adb b/gcc/ada/gen_il-gen-gen_nodes.adb
index f3dc215..a7021dc 100644
--- a/gcc/ada/gen_il-gen-gen_nodes.adb
+++ b/gcc/ada/gen_il-gen-gen_nodes.adb
@@ -736,7 +736,6 @@ begin -- Gen_IL.Gen.Gen_Nodes
Sy (Null_Present, Flag),
Sy (Must_Override, Flag),
Sy (Must_Not_Override, Flag),
- Sy (Aspect_Specifications, List_Id, Default_No_List),
Sm (Null_Statement, Node_Id)));
Ab (N_Access_To_Subprogram_Definition, Node_Kind);