diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-20 12:43:18 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-20 12:43:18 +0200 |
| commit | d493941584db02404346da828ee794e871ad5955 (patch) | |
| tree | ab3c86285d479cf2c4342fe44b2cafa03339dc24 /gcc/ada | |
| parent | 0f8b3e5ddd23885eb770ad3613401d56258ec5b6 (diff) | |
| download | gcc-d493941584db02404346da828ee794e871ad5955.zip gcc-d493941584db02404346da828ee794e871ad5955.tar.gz gcc-d493941584db02404346da828ee794e871ad5955.tar.bz2 | |
Minor reformatting.
From-SVN: r235262
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/exp_unst.ads | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/exp_unst.ads b/gcc/ada/exp_unst.ads index d455175..e6b7c5c 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, |