diff options
Diffstat (limited to 'gcc/ada/sem_attr.adb')
| -rw-r--r-- | gcc/ada/sem_attr.adb | 24 |
1 files changed, 19 insertions, 5 deletions
diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index 345fdb55eeb..bf700803086 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -2215,6 +2215,14 @@ package body Sem_Attr is Attribute_Variable_Indexing => Error_Msg_N ("illegal attribute", N); + -- Attributes related to Ada 2012 aspects. Attribute definition clause + -- exists for these, but they cannot be queried. + + when Attribute_CPU | + Attribute_Dispatching_Domain | + Attribute_Interrupt_Priority => + Error_Msg_N ("illegal attribute", N); + ------------------ -- Abort_Signal -- ------------------ @@ -6286,11 +6294,17 @@ package body Sem_Attr is -- Attributes related to Ada 2012 iterators (placeholder ???) - when Attribute_Constant_Indexing => null; - when Attribute_Default_Iterator => null; - when Attribute_Implicit_Dereference => null; - when Attribute_Iterator_Element => null; - when Attribute_Variable_Indexing => null; + when Attribute_Constant_Indexing | + Attribute_Default_Iterator | + Attribute_Implicit_Dereference | + Attribute_Iterator_Element | + Attribute_Variable_Indexing => null; + + -- Atributes related to Ada 2012 aspects + + when Attribute_CPU | + Attribute_Dispatching_Domain | + Attribute_Interrupt_Priority => null; -------------- -- Adjacent -- |