diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-07-09 15:19:56 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-07-09 15:19:56 +0200 |
| commit | d48f3dca79fe7cd124c90d33dcc88b2147e23856 (patch) | |
| tree | 1d5c645601721230be583f9182a5db021543e450 /gcc/ada/par-util.adb | |
| parent | 22a83cea153e34e826ed42afd56334be89a9ad8e (diff) | |
| download | gcc-d48f3dca79fe7cd124c90d33dcc88b2147e23856.zip gcc-d48f3dca79fe7cd124c90d33dcc88b2147e23856.tar.gz gcc-d48f3dca79fe7cd124c90d33dcc88b2147e23856.tar.bz2 | |
[multiple changes]
2012-07-09 Ed Schonberg <schonberg@adacore.com>
* sem_ch13.adb: Extend previous change to elementary types.
2012-07-09 Javier Miranda <miranda@adacore.com>
* exp_ch8.adb (Expand_N_Subprogram_Renaming_Declaration): Reverse
previous patch since unconditionally handling as renaming_as_body
renamings of predefined dispatching equality and unequality operator
cause visibility problems with private overridings of the equality
operator (see ACATS C854001).
2012-07-09 Vincent Pucci <pucci@adacore.com>
* exp_attr.adb (Signal_Bad_Attribute): Raise Program_Error in
case of internal attribute names (already rejected by the parser).
* par-ch13.adb (P_Representation_Clause): Complain if an internal
attribute name that comes from source occurs.
* par-ch4.adb (P_Name): Complain if an internal attribute name
occurs in the context of an attribute reference.
* par-util.adb (Signal_Bad_Attribute): Don't complain about
mispelling attribute with internal attributes.
* sem_attr.adb (Analyze_Attribute): Raise Program_Error in case
of internal attribute names (already rejected by the parser).
* snames.adb-tmpl (Is_Internal_Attribute_Name): New routine.
* snames.ads-tmpl: Attributes CPU, Dispatching_Domain and
Interrupt_Priority are marked as INT attributes since they
don't denote real attribute and are only used internally in
the compiler.
(Is_Internal_Attribute_Name): New routine.
From-SVN: r189378
Diffstat (limited to 'gcc/ada/par-util.adb')
| -rw-r--r-- | gcc/ada/par-util.adb | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/gcc/ada/par-util.adb b/gcc/ada/par-util.adb index f281c79..eb19a0a 100644 --- a/gcc/ada/par-util.adb +++ b/gcc/ada/par-util.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2012, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -721,7 +721,12 @@ package body Util is 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 + -- No mispelling possible with internal attribute names since they + -- don't denote real attribute. + + if not Is_Internal_Attribute_Name (Error_Msg_Name_1) + and then Is_Bad_Spelling_Of (Token_Name, Error_Msg_Name_1) + then Error_Msg_N -- CODEFIX ("\possible misspelling of %", Token_Node); exit; |