diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-20 12:36:01 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-20 12:36:01 +0200 |
| commit | 18431dc503bba275e82e8d664c7da0785510888d (patch) | |
| tree | d9d59ab5c9d523ed198bb32f4c1c628c0a8df170 /gcc/ada/exp_unst.ads | |
| parent | dfbc6cbe30524f817b427c19756dd13aecf31d09 (diff) | |
| download | gcc-18431dc503bba275e82e8d664c7da0785510888d.zip gcc-18431dc503bba275e82e8d664c7da0785510888d.tar.gz gcc-18431dc503bba275e82e8d664c7da0785510888d.tar.bz2 | |
[multiple changes]
2016-04-20 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch4.adb (Expand_Allocator_Expression): Ensure that the
tag assignment and adjustment preceed the accessibility check.
* exp_ch7.adb (Is_Subprogram_Call): Reimplemented.
2016-04-20 Hristian Kirtchev <kirtchev@adacore.com>
* exp_prag.adb (Expand_Attributes): Ensure that
the temporary used to capture the value of attribute 'Old's
prefix is properly initialized.
2016-04-20 Javier Miranda <miranda@adacore.com>
* exp_unst.ads, exp_unst.adb (Get_Level, Subp_Index): Moved to library
level.
From-SVN: r235258
Diffstat (limited to 'gcc/ada/exp_unst.ads')
| -rw-r--r-- | gcc/ada/exp_unst.ads | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/ada/exp_unst.ads b/gcc/ada/exp_unst.ads index 084e904..d455175 100644 --- a/gcc/ada/exp_unst.ads +++ b/gcc/ada/exp_unst.ads @@ -678,6 +678,14 @@ package Exp_Unst is -- Subprograms -- ----------------- + 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). + + function Subp_Index (Sub : Entity_Id) return SI_Type; + -- Given the entity for a subprogram, return corresponding Subps index + procedure Unnest_Subprogram (Subp : Entity_Id; Subp_Body : Node_Id); -- Subp is a library level subprogram which has nested subprograms, and -- Subp_Body is the corresponding N_Subprogram_Body node. This procedure |