From e84d6abcf84b2260742abae2138aeebb0b148f2e Mon Sep 17 00:00:00 2001 From: charlet Date: Mon, 29 Aug 2011 08:55:18 +0000 Subject: 2011-08-29 Arnaud Charlet * 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 --- gcc/ada/snames.adb-tmpl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'gcc/ada/snames.adb-tmpl') 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; ---------------------------------- -- cgit v1.2.1