[Ada] Minor reformatting and U.S. spelling adjustment

2019-12-16  Gary Dismukes  <dismukes@adacore.com>

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 88732bd5f30e7fd7d6383ce8a3de6ff285ae7c8c..4af1acdf1eb0ae710804953361441a45cb4c0072 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2019-12-16  Gary Dismukes  <dismukes@adacore.com>
+
+       * checks.adb, sem_util.adb: Minor reformatting and U.S. spelling
+       adjustment.
+
 2019-12-16  Bob Duff  <duff@adacore.com>
 
        * sem_ch10.adb (Analyze_Subunit): Give an error if the subunit

diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb
index 6b910fd7024b08fd84e424bea33d3798a29632c7..51ef6c078a3c72872d630409dbc1dbbd0936addb 100644 (file)
--- 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 2c4ff68c9abc281a6ad0212b75fcfb4c927a4321..4c47ec4b6420c84c873818a2cda796c93a9fd4a4 100644 (file)
--- 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  --