Minor reformatting.

Update comments.

From-SVN: r135653

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index bf7dbf78fcbed69b5dfc48af06a6a7b8ae320269..4100b9baf9651b29ba81783d642a0b37d8b45c93 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/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

diff --git a/gcc/ada/exp_ch9.ads b/gcc/ada/exp_ch9.ads
index 2628e150ca147b5a9ebffdf45793a0d0da9be3f4..0e9715dde0d0096faaf8937cb135c982847af2c6 100644 (file)
--- 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;

diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb
index 3aa16de88e9c389fa2c6c7adaf813daa907f19fc..332994ea285e0d63086b06ae0c5692991c84bc6b 100644 (file)
--- a/gcc/ada/inline.adb
+++ b/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- --

diff --git a/gcc/ada/sem_ch8.ads b/gcc/ada/sem_ch8.ads
index 45fb07b32cc40180b4632a21c2f682791f19149b..0d17cd10500ea83ab7c2fb5bba5da2dd493c190a 100644 (file)
--- a/gcc/ada/sem_ch8.ads
+++ b/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