Minor reformatting.

From-SVN: r235262
This commit is contained in:
Arnaud Charlet 2016-04-20 12:43:18 +02:00
parent 0f8b3e5ddd
commit d493941584

View file

@ -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,