From a53c56136d37b424f4f6b89e903763b82c33cfb9 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 5 Dec 2012 11:59:09 +0100 Subject: [multiple changes] 2012-12-05 Ed Schonberg * exp_ch5.adb (Expand_N_Assignment_Statement): Handle properly the generation of discriminant checks when the left-hand side has a type with hidden discriminants. * sem_ch3.ads (Is_Visible_Component): Add defaulted parameter to specify the node on which component visibility is being checked. * sem_ch3.adb (Is_Visible_Component): Use new parameter to determine whether the reference comes from a type conversion to a full view of a private type with unknown discriminants. * sem_ch4.adb (Analyze_Selected_Component): Call Is_Visible_Component with added parameter. 2012-12-05 Arnaud Charlet * make.adb: Minor comment update. 2012-12-05 Arnaud Charlet * gnatlink.adb: Also use -x adascil in CodePeer mode when calling gcc. * exp_ch5.adb: Minor reformatting. 2012-12-05 Bob Duff * exp_ch4.adb: Minor comment. 2012-12-05 Bob Duff * par-ch4.adb: Set Paren_Count correctly for a parenthesized expression containing a conditional expression or quantified expression. * sprint.adb: Update comment. 2012-12-05 Bob Duff * style.adb, scans.ads, styleg.adb: Update comments. 2012-12-05 Ed Schonberg * sem_ch8.adb (Find_Selected_Component): Handle properly an expanded name whose prefix is the expanded name of an enclosing entry, that is to say a construct such as T.E.X, where T is an enclosing concurrent type and E is an enclosing entry. From-SVN: r194204 --- gcc/ada/style.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc/ada/style.adb') diff --git a/gcc/ada/style.adb b/gcc/ada/style.adb index b603702..fd86659 100644 --- a/gcc/ada/style.adb +++ b/gcc/ada/style.adb @@ -41,8 +41,8 @@ package body Style is ----------------------- -- If the check specs mode (-gnatys) is set, then all subprograms must - -- have specs unless they are parameterless procedures that are not child - -- units at the library level (i.e. they are possible main programs). + -- have specs unless they are parameterless procedures at the library + -- level (i.e. they are possible main programs). procedure Body_With_No_Spec (N : Node_Id) is begin -- cgit v1.1