diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-06-13 14:13:19 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-06-13 14:13:19 +0000 |
| commit | ef6f748f9b28459bd27e09edecca6eeaf42f3df7 (patch) | |
| tree | a093e47020ed740781ff421875451b061f428494 /gcc/ada/exp_attr.adb | |
| parent | 2466cdbf4be6dc8d97082310f02f72f905a6c420 (diff) | |
| download | gcc-ef6f748f9b28459bd27e09edecca6eeaf42f3df7.tar.gz | |
2012-06-13 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk rev 188512 using svnmerge
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@188515 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_attr.adb')
| -rw-r--r-- | gcc/ada/exp_attr.adb | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index 355770186db..d63d4dee1ea 100644 --- a/gcc/ada/exp_attr.adb +++ b/gcc/ada/exp_attr.adb @@ -421,7 +421,7 @@ package body Exp_Attr is Par := Parent (Par); end if; - if Nkind_In (Par, N_Procedure_Call_Statement, N_Function_Call) + if Nkind (Par) in N_Subprogram_Call and then Is_Entity_Name (Name (Par)) then Subp := Entity (Name (Par)); @@ -831,11 +831,17 @@ package body Exp_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; + + -- Attributes related to Ada 2012 aspects + + when Attribute_CPU | + Attribute_Dispatching_Domain | + Attribute_Interrupt_Priority => null; ------------ -- Access -- |