diff options
| author | Thomas Quinot <quinot@adacore.com> | 2012-10-29 11:21:57 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-10-29 12:21:57 +0100 |
| commit | 2d7b3fa49dd6dabc94eb6ad86ccdbefdb851cf78 (patch) | |
| tree | 17a14bab582f62ecf5a790fbcbbc51ccd647d89e /gcc/ada/par-util.adb | |
| parent | 465b65324931ff40fc4963ab1cff93b7af8de2b9 (diff) | |
| download | gcc-2d7b3fa49dd6dabc94eb6ad86ccdbefdb851cf78.zip gcc-2d7b3fa49dd6dabc94eb6ad86ccdbefdb851cf78.tar.gz gcc-2d7b3fa49dd6dabc94eb6ad86ccdbefdb851cf78.tar.bz2 | |
gnat_rm.texi, [...] (Sem_Prag.Analyze_Pragma): Handle new pragma Attribute_Definition.
2012-10-29 Thomas Quinot <quinot@adacore.com>
* gnat_rm.texi, sem_prag.adb, sem_util.adb, sem_util.ads,
par-prag.adb, par-util.adb, snames.ads-tmpl (Sem_Prag.Analyze_Pragma):
Handle new pragma Attribute_Definition.
(Sem_Util.Bad_Attribute): New routine, moved here
from par-util, so that it can be used by the above.
(Par_Util.Signal_Bad_Attribute): Processing moved to
Sem_Util.Bad_Attribute.
From-SVN: r192935
Diffstat (limited to 'gcc/ada/par-util.adb')
| -rw-r--r-- | gcc/ada/par-util.adb | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/gcc/ada/par-util.adb b/gcc/ada/par-util.adb index 0c23f93..3baf9f5 100644 --- a/gcc/ada/par-util.adb +++ b/gcc/ada/par-util.adb @@ -716,20 +716,7 @@ package body Util is procedure Signal_Bad_Attribute is begin - Error_Msg_N ("unrecognized attribute&", Token_Node); - - -- Check for possible misspelling - - Error_Msg_Name_1 := First_Attribute_Name; - while Error_Msg_Name_1 <= Last_Attribute_Name loop - if Is_Bad_Spelling_Of (Token_Name, Error_Msg_Name_1) then - Error_Msg_N -- CODEFIX - ("\possible misspelling of %", Token_Node); - exit; - end if; - - Error_Msg_Name_1 := Error_Msg_Name_1 + 1; - end loop; + Bad_Attribute (Token_Node, Token_Name, Warn => False); end Signal_Bad_Attribute; ----------------------------- |