From 77bba9fe79557d4795f577505f2b548f2250c6eb Mon Sep 17 00:00:00 2001 From: charlet Date: Mon, 29 Aug 2011 08:52:00 +0000 Subject: 2011-08-29 Thomas Quinot * get_scos.adb: Ignore chaining indicators not currently supported by Ada. 2011-08-29 Arnaud Charlet * system.ads: Minor editing. 2011-08-29 Arnaud Charlet * 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 --- gcc/ada/sem_attr.adb | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'gcc/ada/sem_attr.adb') 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 | -- cgit v1.2.1