exp_ch9.adb: Minor reformatting and typo fixes.

2015-11-13  Gary Dismukes  <dismukes@adacore.com>

	* exp_ch9.adb: Minor reformatting and typo fixes.

From-SVN: r230308

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 324d4dcda5a605c24eff625879f1858e4ff3c21a..37a3fd31d89af3c7c329254d41ecebbe5e35d806 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2015-11-13  Gary Dismukes  <dismukes@adacore.com>
+
+       * exp_ch9.adb: Minor reformatting and typo fixes.
+
 2015-11-13  Eric Botcazou  <ebotcazou@adacore.com>
 
        * init.c [Darwin/arm64]: Move __gnat_sigtramp implementation to...

diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb
index f985019d76fdfc66967d075ea6107cf9feea58f9..d31eb62f22638d8337741d1834f6d5367b84dfc0 100644 (file)
--- a/gcc/ada/exp_ch9.adb
+++ b/gcc/ada/exp_ch9.adb
@@ -6307,11 +6307,11 @@ package body Exp_Ch9 is
       --  If so, barrier may not be properly synchronized.
 
       function Is_Pure_Barrier (N : Node_Id) return Traverse_Result;
-      --  Check whether N follow the Pure_Barriers restriction. Return OK if
+      --  Check whether N follows the Pure_Barriers restriction. Return OK if
       --  so.
 
       function Is_Simple_Barrier_Name (N : Node_Id) return Boolean;
-      --  Check wether entity name N denotes a component of the protected
+      --  Check whether entity name N denotes a component of the protected
       --  object. This is used to check the Simple_Barrier restriction.
 
       ----------------------
@@ -6375,7 +6375,7 @@ package body Exp_Ch9 is
             return Scope (Entity (N)) = Current_Scope;
 
          --  Check for case of _object.all.field (note that the explicit
-         --  dereference gets inserted by analyze/expand of _object.field)
+         --  dereference gets inserted by analyze/expand of _object.field).
 
          else
             Renamed := Renamed_Object (Entity (N));