diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-04-23 14:53:51 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-04-23 14:53:51 +0000 |
| commit | 7258f997e112fb5d5c54d67260a50638daefa201 (patch) | |
| tree | ec3ed22a6ab6dbfb232e3b6f95456c3b19ea7af1 /gcc/ada/sem_prag.ads | |
| parent | 8b013a86c67f80bd45704db360025fe0279ed900 (diff) | |
| download | gcc-7258f997e112fb5d5c54d67260a50638daefa201.tar.gz | |
2013-04-23 Yannick Moy <moy@adacore.com>
* err_vars.ads (Error_Msg_Qual_Level): Set variable to zero
at declaration.
* opt.ads (Multiple_Unit_Index): Set variable to zero at declaration.
* sem_util.adb (NCT_Table_Entries): Set variable to zero at declaration.
* set_targ.ads (Num_FPT_Modes): Set variable to zero at declaration.
* stylesw.adb (Save_Style_Check_Options): Protect testing the
value of Style_Check_Comments_Spacing by a previous test that
Style_Check_Comments is True.
2013-04-23 Thomas Quinot <quinot@adacore.com>
* sem_prag.adb, sem_prag.ads (Effective_Name): Rename to
Original_Name, and move declaration to package body as this
subprogram is not used from outside. Also clarify documentation.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@198195 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_prag.ads')
| -rw-r--r-- | gcc/ada/sem_prag.ads | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/gcc/ada/sem_prag.ads b/gcc/ada/sem_prag.ads index 7c370b88941..3ec3e3b1b7d 100644 --- a/gcc/ada/sem_prag.ads +++ b/gcc/ada/sem_prag.ads @@ -104,16 +104,6 @@ package Sem_Prag is -- True have their analysis delayed until after the main program is parsed -- and analyzed. - function Effective_Name (N : Node_Id) return Name_Id; - -- N is a pragma node or aspect specification node. This function returns - -- the name of the pragma or aspect, taking into account possible rewrites, - -- and also cases where a pragma comes from an aspect (in such cases, - -- the name can be different from the pragma name, e.g. Pre generates - -- a Precondition pragma). This also deals with the presence of 'Class - -- which results in one of the special names Name_uPre, Name_uPost, - -- Name_uInvariant, or Name_uType_Invariant being returned to represent - -- the corresponding aspects with x'Class names. - procedure Initialize; -- Initializes data structures used for pragma processing. Must be called -- before analyzing each new main source program. |