Minor reformatting.

Update comments.

From-SVN: r135653

1 files changed, 9 insertions, 11 deletions

diff --git a/gcc/ada/exp_ch9.ads b/gcc/ada/exp_ch9.ads
index 2628e150ca1..0e9715dde0d 100644
--- a/gcc/ada/exp_ch9.ads
+++ b/gcc/ada/exp_ch9.ads
@@ -158,17 +158,15 @@ package Exp_Ch9 is
 
    function Convert_Concurrent
      (N    : Node_Id;
-      Typ  : Entity_Id)
-      return Node_Id;
-   --  N is an expression of type Typ. If the type is not a concurrent
-   --  type then it is returned unchanged. If it is a task or protected
-   --  reference, Convert_Concurrent creates an unchecked conversion node
-   --  from this expression to the corresponding concurrent record type
-   --  value. We need this in any situation where the concurrent type is
-   --  used, because the actual concurrent object is an object of the
-   --  corresponding concurrent type, and manipulations on the concurrent
-   --  object actually manipulate the corresponding object of the record
-   --  type.
+      Typ  : Entity_Id) return Node_Id;
+   --  N is an expression of type Typ. If the type is not a concurrent type
+   --  then it is returned unchanged. If it is a task or protected reference,
+   --  Convert_Concurrent creates an unchecked conversion node from this
+   --  expression to the corresponding concurrent record type value. We need
+   --  this in any situation where the concurrent type is used, because the
+   --  actual concurrent object is an object of the corresponding concurrent
+   --  type, and manipulations on the concurrent object actually manipulate the
+   --  corresponding object of the record type.
 
    function Entry_Index_Expression
      (Sloc  : Source_Ptr;