diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 08:52:00 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 08:52:00 +0000 |
| commit | 77bba9fe79557d4795f577505f2b548f2250c6eb (patch) | |
| tree | 180057e9ba8d4c3cf2672fb0566a3983b4975d40 /gcc/ada/sem_attr.adb | |
| parent | e19b7801673b6f8a2d8a5ab10b2666ec04ed0e65 (diff) | |
| download | gcc-77bba9fe79557d4795f577505f2b548f2250c6eb.tar.gz | |
2011-08-29 Thomas Quinot <quinot@adacore.com>
* get_scos.adb: Ignore chaining indicators not currently supported
by Ada.
2011-08-29 Arnaud Charlet <charlet@adacore.com>
* system.ads: Minor editing.
2011-08-29 Arnaud Charlet <charlet@adacore.com>
* bindgen.adb (Gen_Elab_Calls): Generate calls to subp'Elab_Subp_Body in
CodePeer mode.
* sem_attr.ads, sem_attr.adb, exp_Attr.adb, sem_ch6.adb: Add handling of
Attribute_Elab_Subp_Body.
* snames.ads-tmpl (Attribute_Elab_Subp_Body, Name_Elab_Subp_Body): New.
* sem_util.adb: Update comments.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178165 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_attr.adb')
| -rw-r--r-- | gcc/ada/sem_attr.adb | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index 5195e4f3a88..12fce9508f9 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -1945,6 +1945,8 @@ package body Sem_Attr is and then Aname /= Name_Elab_Spec and then + Aname /= Name_Elab_Subp_Body + and then Aname /= Name_UET_Address and then Aname /= Name_Enabled @@ -3014,7 +3016,10 @@ package body Sem_Attr is -- Also handles processing for Elab_Spec - when Attribute_Elab_Body | Attribute_Elab_Spec => + when Attribute_Elab_Body | + Attribute_Elab_Spec | + Attribute_Elab_Subp_Body => + Check_E0; Check_Unit_Name (P); Set_Etype (N, Standard_Void_Type); @@ -7712,6 +7717,7 @@ package body Sem_Attr is Attribute_Elaborated | Attribute_Elab_Body | Attribute_Elab_Spec | + Attribute_Elab_Subp_Body | Attribute_Enabled | Attribute_External_Tag | Attribute_Fast_Math | |