Minor reformatting.

From-SVN: r235262

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,