From 2cc2e9642be12cc88ae8bf2b69c00affb5e1e9fe Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 2 May 2016 12:10:01 +0200 Subject: [multiple changes] 2016-05-02 Gary Dismukes * 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 * 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 * 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 * 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 --- gcc/ada/sem_ch4.adb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'gcc/ada/sem_ch4.adb') 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 := -- cgit v1.1