From d493941584db02404346da828ee794e871ad5955 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 20 Apr 2016 12:43:18 +0200 Subject: [PATCH] Minor reformatting. From-SVN: r235262 --- gcc/ada/exp_unst.ads | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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, -- 2.30.2