Minor reformatting.

From-SVN: r235262

diff --git a/gcc/ada/exp_unst.ads b/gcc/ada/exp_unst.ads
index d455175ca14e38f3006fb96f1f0fcbd30e7956d6..e6b7c5c4446720788b23dcb2e999c09ce9580784 100644 (file)
--- a/gcc/ada/exp_unst.ads
+++ b/gcc/ada/exp_unst.ads
@@ -681,13 +681,13 @@ package Exp_Unst is
    function Get_Level (Subp : Entity_Id; Sub : Entity_Id) return Nat;
    --  Sub is either Subp itself, or a subprogram nested within Subp. This
    --  function returns the level of nesting (Subp = 1, subprograms that
-   --  are immediately nested within Subp = 2, etc).
+   --  are immediately nested within Subp = 2, etc.).
 
    function Subp_Index (Sub : Entity_Id) return SI_Type;
-   --  Given the entity for a subprogram, return corresponding Subps index
+   --  Given the entity for a subprogram, return corresponding Subp's index
 
    procedure Unnest_Subprogram (Subp : Entity_Id; Subp_Body : Node_Id);
-   --  Subp is a library level subprogram which has nested subprograms, and
+   --  Subp is a library-level subprogram which has nested subprograms, and
    --  Subp_Body is the corresponding N_Subprogram_Body node. This procedure
    --  declares the AREC types and objects, adds assignments to the AREC record
    --  as required, defines the xxxPTR types for uplevel referenced objects,