Minor reformatting.
From-SVN: r235262
This commit is contained in:
parent
0f8b3e5ddd
commit
d493941584
1 changed files with 3 additions and 3 deletions
|
@ -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,
|
||||
|
|
Loading…
Add table
Reference in a new issue