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/par.adb | |
| parent | f0b741b6e73d812ddbe0c4f91154646cea567df3 (diff) | |
[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/par.adb')
| -rw-r--r-- | gcc/ada/par.adb | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/gcc/ada/par.adb b/gcc/ada/par.adb index 486c0f3da65..571713f3d51 100644 --- a/gcc/ada/par.adb +++ b/gcc/ada/par.adb @@ -59,7 +59,7 @@ function Par (Configuration_Pragmas : Boolean) return List_Id is Num_Library_Units : Natural := 0; -- Count number of units parsed (relevant only in syntax check only mode, - -- since in semantics check mode only a single unit is permitted anyway) + -- since in semantics check mode only a single unit is permitted anyway). Save_Config_Switches : Config_Switches_Type; -- Variable used to save values of config switches while we parse the @@ -67,7 +67,11 @@ function Par (Configuration_Pragmas : Boolean) return List_Id is Loop_Block_Count : Nat := 0; -- Counter used for constructing loop/block names (see the routine - -- Par.Ch5.Get_Loop_Block_Name) + -- Par.Ch5.Get_Loop_Block_Name). + + Inside_Record_Definition : Boolean := False; + -- Flag set True within a record definition. Used to control warning + -- for redefinition of standard entities (not issued for field names). -------------------- -- Error Recovery -- @@ -1264,6 +1268,11 @@ function Par (Configuration_Pragmas : Boolean) return List_Id is function Token_Is_At_End_Of_Line return Boolean; -- Determines if the current token is the last token on the line + procedure Warn_If_Standard_Redefinition (N : Node_Id); + -- Issues a warning if Warn_On_Standard_Redefinition is set True, and + -- the Node N (which is a Defining_Identifier node with the Chars field + -- set) is a renaming of an entity in package Standard. + end Util; -------------- |