diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-10-29 11:56:44 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-10-29 11:56:44 +0100 |
| commit | 0cc71b488a98162b4344c6809f26157cf6e346c0 (patch) | |
| tree | 910788a359ee7d5cadc748af3e41a98d7eb5dc6c /gcc/ada/sinfo-cn.adb | |
| parent | f0b741b6e73d812ddbe0c4f91154646cea567df3 (diff) | |
| download | gcc-0cc71b488a98162b4344c6809f26157cf6e346c0.zip gcc-0cc71b488a98162b4344c6809f26157cf6e346c0.tar.gz gcc-0cc71b488a98162b4344c6809f26157cf6e346c0.tar.bz2 | |
[multiple changes]
2012-10-29 Arnaud Charlet <charlet@adacore.com>
* warnsw.adb (Set_GNAT_Mode_Warnings): Unset
Warn_On_Standard_Redefinition.
2012-10-29 Javier Miranda <miranda@adacore.com>
* sem_ch3.adb (Derive_Progenitor_Subprograms): Complete documentation.
2012-10-29 Robert Dewar <dewar@adacore.com>
* par-ch11.adb (Warn_If_Standard_Redefinition): Add calls.
* par-ch3.adb (P_Defining_Identifier): Call
Warn_If_Standard_Redefinition if not inside record definition.
* par-ch6.adb (Warn_If_Standard_Redefinition): Add calls.
* par-util.adb (Warn_If_Standard_Redefinition): New procedure.
* par.adb (Inside_Record_Definition): New flag.
(Warn_If_Standard_Redefinition): New procedure.
* sinfo-cn.adb (Change_Identifier_To_Defining_Identifier): Remove
handling of warning for redefining standard name (moved to Par*).
From-SVN: r192927
Diffstat (limited to 'gcc/ada/sinfo-cn.adb')
| -rw-r--r-- | gcc/ada/sinfo-cn.adb | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/gcc/ada/sinfo-cn.adb b/gcc/ada/sinfo-cn.adb index 60afa01..f581eaa 100644 --- a/gcc/ada/sinfo-cn.adb +++ b/gcc/ada/sinfo-cn.adb @@ -31,10 +31,7 @@ -- have been deliberately layed out in a manner that permits such alteration. with Atree; use Atree; -with Errout; use Errout; -with Sem_Util; use Sem_Util; with Snames; use Snames; -with Warnsw; use Warnsw; package body Sinfo.CN is @@ -74,20 +71,6 @@ package body Sinfo.CN is procedure Change_Identifier_To_Defining_Identifier (N : in out Node_Id) is begin - -- Check for redefinition of standard entity (requiring a warning) - - if Warn_On_Standard_Redefinition then - declare - C : constant Entity_Id := Current_Entity (N); - begin - if Present (C) and then Sloc (C) = Standard_Location then - Error_Msg_N ("redefinition of entity& in Standard?", N); - end if; - end; - end if; - - -- Go ahead with the change - Set_Nkind (N, N_Defining_Identifier); N := Extend_Node (N); end Change_Identifier_To_Defining_Identifier; |