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

	* exp_ch9.adb: Minor reformatting and typo fixes.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@230308 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 324d4dc..37a3fd3 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 f985019..d31eb62 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));