https://gcc.gnu.org/g:8cadfeb5f6d7d15cb3d008b11105a2e67b46dbe9
commit r15-732-g8cadfeb5f6d7d15cb3d008b11105a2e67b46dbe9
Author: Piotr Trojanek <troja...@adacore.com>
Date: Wed Apr 3 13:36:35 2024 +0200
ada: Fix layout in a list of aspects
Code cleanup; semantics is unaffected.
gcc/ada/
* aspects.ads (Nonoverridable_Aspect_Id): Fix layout.
Diff:
---
gcc/ada/aspects.ads | 19 +++++++++++--------
1 file changed, 11 insertions(+), 8 deletions(-)
diff --git a/gcc/ada/aspects.ads b/gcc/ada/aspects.ads
index ce393d4f602..3cc62de3411 100644
--- a/gcc/ada/aspects.ads
+++ b/gcc/ada/aspects.ads
@@ -237,14 +237,17 @@ package Aspects is
-- Aspect_Id's excluding No_Aspect
subtype Nonoverridable_Aspect_Id is Aspect_Id with
- Static_Predicate => Nonoverridable_Aspect_Id in
- Aspect_Default_Iterator | Aspect_Iterator_Element |
- Aspect_Implicit_Dereference | Aspect_Constant_Indexing |
- Aspect_Variable_Indexing | Aspect_Aggregate |
- Aspect_Max_Entry_Queue_Length
- | Aspect_No_Controlled_Parts
- -- ??? No_Controlled_Parts not yet in Aspect_Id enumeration
- ; -- see RM 13.1.1(18.7)
+ Static_Predicate =>
+ Nonoverridable_Aspect_Id in Aspect_Aggregate
+ | Aspect_Constant_Indexing
+ | Aspect_Default_Iterator
+ | Aspect_Implicit_Dereference
+ | Aspect_Iterator_Element
+ | Aspect_Max_Entry_Queue_Length
+ | Aspect_No_Controlled_Parts
+ | Aspect_Variable_Indexing;
+ -- ??? No_Controlled_Parts not yet in Aspect_Id enumeration see RM
+ -- 13.1.1(18.7).
-- The following array indicates aspects that accept 'Class
