Minor reformatting.

Update comments.

From-SVN: r135653

gcc/ada/ChangeLog

@@ -7,6 +7,9 @@
 
 	* a-caldel-vms.adb: Resync with a-caldel spec.
 
+	* exp_ch9.ads, sem_ch8.ads, inline.adb: Minor reformatting.
+	Update comments.
+
 2008-05-17  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* trans.c (gnat_to_gnu) <N_Validate_Unchecked_Conversion>: Account

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;

gcc/ada/inline.adb

@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2008, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

gcc/ada/sem_ch8.ads

@@ -77,8 +77,8 @@ package Sem_Ch8 is
    procedure Find_Direct_Name (N : Node_Id);
    --  Given a direct name (Identifier or Operator_Symbol), this routine scans
    --  the homonym chain for the name searching for corresponding visible
-   --  entities to find the referenced entity (or in the case of overloading),
-   --  entities. On return, the Entity and Etype fields are set. In the
+   --  entities to find the referenced entity (or in the case of overloading,
+   --  entities). On return, the Entity and Etype fields are set. In the
    --  non-overloaded case, these are the correct final entries. In the
    --  overloaded case, Is_Overloaded is set, Etype and Entity refer to an
    --  arbitrary element of the overloads set, and an appropriate list of