diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-05-21 15:12:18 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-05-21 15:12:18 +0200 |
| commit | 1ca46a7753d416f7f5610f82cca7f89683bf4da0 (patch) | |
| tree | 3af0ddb387acf04637867134b80924c5bd5130cb /gcc/ada/sem_ch5.adb | |
| parent | a7a629d72f2b25832c4b9c7c2b11d03da73d5546 (diff) | |
| download | gcc-1ca46a7753d416f7f5610f82cca7f89683bf4da0.zip gcc-1ca46a7753d416f7f5610f82cca7f89683bf4da0.tar.gz gcc-1ca46a7753d416f7f5610f82cca7f89683bf4da0.tar.bz2 | |
[multiple changes]
2015-05-21 Ed Schonberg <schonberg@adacore.com>
* sem_ch5.adb: minor reformatting.
2015-05-21 Robert Dewar <dewar@adacore.com>
* freeze.adb (Freeze_Entity): Properly tag -gnatw.z messages.
From-SVN: r223482
Diffstat (limited to 'gcc/ada/sem_ch5.adb')
| -rw-r--r-- | gcc/ada/sem_ch5.adb | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/gcc/ada/sem_ch5.adb b/gcc/ada/sem_ch5.adb index 38c32df..dcdc7eb 100644 --- a/gcc/ada/sem_ch5.adb +++ b/gcc/ada/sem_ch5.adb @@ -1727,9 +1727,9 @@ package body Sem_Ch5 is -- implements the reversible iterator interface. function Get_Cursor_Type (Typ : Entity_Id) return Entity_Id; - -- For containers with Iterator and related aspects, the cursor the - -- is obtained by locating an entity with the proper name in the - -- scope of the type. + -- For containers with Iterator and related aspects, the cursor is + -- obtained by locating an entity with the proper name in the scope + -- of the type. ----------------------------- -- Check_Reverse_Iteration -- @@ -2179,8 +2179,7 @@ package body Sem_Ch5 is elsif Iter_Kind = N_Function_Call then Obj := First_Actual (Original_Node (Iter_Name)); - -- If neither, likely previous error, make sure Obj has some - -- reasonable value in such a case. + -- If neither, the name comes from source else Obj := Iter_Name; |