diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 08:55:18 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 08:55:18 +0000 |
commit | e84d6abcf84b2260742abae2138aeebb0b148f2e (patch) | |
tree | f800b935551ef86b82d80222dcee41567552a48c /gcc/ada/snames.adb-tmpl | |
parent | 0b1ba96ba15a19e5690e356ccb113e0ce6b30eba (diff) | |
download | gcc-e84d6abcf84b2260742abae2138aeebb0b148f2e.tar.gz |
2011-08-29 Arnaud Charlet <charlet@adacore.com>
* gnat_rm.texi: Add doc for 'Elab_Subp_Body.
* bindgen.adb: Add comments.
* snames.adb-tmpl (Is_Attribute_Name): Only recognize 'Elab_Subp_Body
in CodePeer mode.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178168 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/snames.adb-tmpl')
-rw-r--r-- | gcc/ada/snames.adb-tmpl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/snames.adb-tmpl b/gcc/ada/snames.adb-tmpl index defe9495ee9..92b258df923 100644 --- a/gcc/ada/snames.adb-tmpl +++ b/gcc/ada/snames.adb-tmpl @@ -306,7 +306,8 @@ package body Snames is function Is_Attribute_Name (N : Name_Id) return Boolean is begin - return N in First_Attribute_Name .. Last_Attribute_Name; + return N in First_Attribute_Name .. Last_Attribute_Name + and then (CodePeer_Mode or else N /= Name_Elab_Subp_Body); end Is_Attribute_Name; ---------------------------------- |