diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-10-20 12:42:53 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-10-20 12:42:53 +0000 |
| commit | 49c657fc069710b7b5c319ace9979c799608f115 (patch) | |
| tree | 735688539c34748ea9b7b595752d4f0a5f93705c /gcc/ada/sem_ch5.adb | |
| parent | ab8a61d08e011767daccadc1d3382947d7685ccc (diff) | |
| download | gcc-49c657fc069710b7b5c319ace9979c799608f115.tar.gz | |
2015-10-20 Yannick Moy <moy@adacore.com>
* fmap.adb, a-cihama.adb, sem_ch5.adb, make.adb, inline.adb,
a-cfhase.adb, scng.adb, sem_ch12.adb, freeze.adb, tempdir.adb,
sem_util.adb, sem_res.adb, s-regexp.adb, a-clrefi.adb: Fix coding
style for marking start of processing of subprograms.
2015-10-20 Yannick Moy <moy@adacore.com>
* lib-xref-spark_specific.adb (Add_SPARK_File): Start traversal
by requesting info from stubs. (Traverse_All_Compilation_Units):
Remove unused procedure.
(Traverse_Declarations_Or_Statements): Handle protected and task units.
* lib-xref.ads (Traverse_All_Compilation_Units): Remove unused
procedure.
* restrict.adb (Check_Restriction): Do not ignore
restrictions in GNATprove_Mode.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@229078 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_ch5.adb')
| -rw-r--r-- | gcc/ada/sem_ch5.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sem_ch5.adb b/gcc/ada/sem_ch5.adb index 13d447e3393..24e641ebfea 100644 --- a/gcc/ada/sem_ch5.adb +++ b/gcc/ada/sem_ch5.adb @@ -1571,7 +1571,7 @@ package body Sem_Ch5 is end if; end Analyze_Cond_Then; - -- Start of Analyze_If_Statement + -- Start of processing for Analyze_If_Statement begin -- Initialize exit count for else statements. If there is no else part, @@ -1788,7 +1788,7 @@ package body Sem_Ch5 is return Etype (Ent); end Get_Cursor_Type; - -- Start of processing for Analyze_iterator_Specification + -- Start of processing for Analyze_iterator_Specification begin Enter_Name (Def_Id); |