From: Gary Dismukes Date: Mon, 16 Dec 2019 10:34:08 +0000 (+0000) Subject: [Ada] Minor reformatting and U.S. spelling adjustment X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ba58b776c08cf4c1a7021e60f9ec1f70a8141b1e;p=gcc.git [Ada] Minor reformatting and U.S. spelling adjustment 2019-12-16 Gary Dismukes gcc/ada/ * checks.adb, sem_util.adb: Minor reformatting and U.S. spelling adjustment. From-SVN: r279425 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 88732bd5f30..4af1acdf1eb 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2019-12-16 Gary Dismukes + + * checks.adb, sem_util.adb: Minor reformatting and U.S. spelling + adjustment. + 2019-12-16 Bob Duff * sem_ch10.adb (Analyze_Subunit): Give an error if the subunit diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb index 6b910fd7024..51ef6c078a3 100644 --- a/gcc/ada/checks.adb +++ b/gcc/ada/checks.adb @@ -2067,15 +2067,14 @@ package body Checks is Apply_Float_Conversion_Check (Ck_Node, Target_Base); Set_Etype (Temp, Target_Base); - -- Note : previously the declaration was inserted above - -- the parent of the conversion, apparently as a small - -- optimization for the subequent traversal in Insert_ - -- Actions. Unfortunately a similar optimization takes - -- place in Insert_Actions, assuming that the insertion - -- point must be above the expression that creates actions. - -- This is not correct in the presence of conditional - -- expressions, where the insertion must be in the - -- list of asctions attached to the current alternative. + -- Note: Previously the declaration was inserted above the parent + -- of the conversion, apparently as a small optimization for the + -- subequent traversal in Insert_Actions. Unfortunately a similar + -- optimization takes place in Insert_Actions, assuming that the + -- insertion point must be above the expression that creates + -- actions. This is not correct in the presence of conditional + -- expressions, where the insertion must be in the list of actions + -- attached to the current alternative. Insert_Action (Par, Make_Object_Declaration (Loc, diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 2c4ff68c9ab..4c47ec4b642 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -13790,11 +13790,11 @@ package body Sem_Util is function Is_Atomic_Or_VFA_Object (N : Node_Id) return Boolean is function Is_VFA_Object (N : Node_Id) return Boolean; -- Determine whether arbitrary node N denotes a reference to an object - -- which is Volatile_Full_Access. Modelled on Is_Atomic_Object above. + -- that is Volatile_Full_Access. Modeled on Is_Atomic_Object above. function Is_VFA_Object_Entity (Id : Entity_Id) return Boolean; - -- Determine whether arbitrary entity Id denotes an object which is - -- Volatile_Full_Access. Modelled on Is_Atomic_Object_Entity above. + -- Determine whether arbitrary entity Id denotes an object that is + -- Volatile_Full_Access. Modeled on Is_Atomic_Object_Entity above. --------------------- -- Is_VFA_Object --