diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-04-20 10:38:24 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-04-20 10:38:24 +0000 |
| commit | 982fceeceb789e138dd6af1c6bb6842b346d9282 (patch) | |
| tree | 849d8ec7686c14e26d017d93e568942b8d73e48e | |
| parent | 9193c101ae5f8d5b0402fb427293285fc28594a3 (diff) | |
| download | gcc-982fceeceb789e138dd6af1c6bb6842b346d9282.tar.gz | |
2016-04-20 Hristian Kirtchev <kirtchev@adacore.com>
* exp_unst.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@235259 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/exp_unst.adb | 3 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index f6f5dc34e79..21637a7662a 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,9 @@ 2016-04-20 Hristian Kirtchev <kirtchev@adacore.com> + * exp_unst.adb: Minor reformatting. + +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. diff --git a/gcc/ada/exp_unst.adb b/gcc/ada/exp_unst.adb index 668f5969153..63516330807 100644 --- a/gcc/ada/exp_unst.adb +++ b/gcc/ada/exp_unst.adb @@ -145,6 +145,7 @@ package body Exp_Unst is function Get_Level (Subp : Entity_Id; Sub : Entity_Id) return Nat is Lev : Nat; S : Entity_Id; + begin Lev := 1; S := Sub; @@ -152,8 +153,8 @@ package body Exp_Unst is if S = Subp then return Lev; else - S := Enclosing_Subprogram (S); Lev := Lev + 1; + S := Enclosing_Subprogram (S); end if; end loop; end Get_Level; |