From: Arnaud Charlet Date: Wed, 20 Apr 2016 10:43:18 +0000 (+0200) Subject: Minor reformatting. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d493941584db02404346da828ee794e871ad5955;p=gcc.git Minor reformatting. From-SVN: r235262 --- diff --git a/gcc/ada/exp_unst.ads b/gcc/ada/exp_unst.ads index d455175ca14..e6b7c5c4446 100644 --- 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,