diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-05-02 12:10:01 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-05-02 12:10:01 +0200 |
| commit | 2cc2e9642be12cc88ae8bf2b69c00affb5e1e9fe (patch) | |
| tree | 7202b177596c943e3df1aa040bb132d8e4085915 /gcc/ada/sem_ch4.adb | |
| parent | 08e5cf22522a870f0de5be947f1494b4b63f33ad (diff) | |
| download | gcc-2cc2e9642be12cc88ae8bf2b69c00affb5e1e9fe.zip gcc-2cc2e9642be12cc88ae8bf2b69c00affb5e1e9fe.tar.gz gcc-2cc2e9642be12cc88ae8bf2b69c00affb5e1e9fe.tar.bz2 | |
[multiple changes]
2016-05-02 Gary Dismukes <dismukes@adacore.com>
* exp_ch5.adb, exp_ch7.adb, exp_ch7.ads, checks.adb, sem_attr.adb,
gnat1drv.adb, sem_ch4.adb, sem_ch13.adb: Minor reformatting and typo
fixes.
* sem_prag.adb, sem_ch12.adb: Minor typo fixes.
2016-05-02 Ed Schonberg <schonberg@adacore.com>
* exp_ch6.adb (Make_Build_In_Place_Call_In_Allocator): The
function call may be wrapped in an explicit type conversion.
2016-05-02 Jerome Lambourg <lambourg@adacore.com>
* interfac.ads: use pragma No_Elaboration_Code_All.
* s-unstyp.ads: s-unstyp.ads: use pragma No_Elaboration_Code_All.
2016-05-02 Ed Schonberg <schonberg@adacore.com>
* sem.adb (Analyze: If node is an error node previously created
by the parser, disable expansion to prevent subsequent glitches
in error recovery.
From-SVN: r235736
Diffstat (limited to 'gcc/ada/sem_ch4.adb')
| -rw-r--r-- | gcc/ada/sem_ch4.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index e31704b..c867cf6 100644 --- a/gcc/ada/sem_ch4.adb +++ b/gcc/ada/sem_ch4.adb @@ -7469,7 +7469,7 @@ package body Sem_Ch4 is Subp_Id : Entity_Id; begin - -- Ensure that the routine is not called with itypes which lack a + -- Ensure that the routine is not called with itypes, which lack a -- declarative node. pragma Assert (Present (Typ_Decl)); @@ -7526,7 +7526,7 @@ package body Sem_Ch4 is Param_Typ : Node_Id; begin - -- The classify as a suitable candidate, the subprogram must be a + -- To classify as a suitable candidate, the subprogram must be a -- function whose name matches the argument of aspect Constant or -- Variable_Indexing. @@ -7667,12 +7667,12 @@ package body Sem_Ch4 is C_Type := Etype (Base_Type (C_Type)); end if; - -- Check whether type the has a specified indexing aspect + -- Check whether the type has a specified indexing aspect Func_Name := Empty; - -- The context is suitable for constant indexing, obtain the name of the - -- indexing function from aspect Constant_Indexing. + -- The context is suitable for constant indexing, so obtain the name of + -- the indexing function from aspect Constant_Indexing. if Constant_Indexing_OK then Func_Name := |