diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2016-04-20 10:38:24 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-20 12:38:24 +0200 |
| commit | 61d1b085b96c6f9aa6cc952e7161c4f0e41794c8 (patch) | |
| tree | 849d8ec7686c14e26d017d93e568942b8d73e48e | |
| parent | 18431dc503bba275e82e8d664c7da0785510888d (diff) | |
| download | gcc-61d1b085b96c6f9aa6cc952e7161c4f0e41794c8.zip gcc-61d1b085b96c6f9aa6cc952e7161c4f0e41794c8.tar.gz gcc-61d1b085b96c6f9aa6cc952e7161c4f0e41794c8.tar.bz2 | |
exp_unst.adb: Minor reformatting.
2016-04-20 Hristian Kirtchev <kirtchev@adacore.com>
* exp_unst.adb: Minor reformatting.
From-SVN: r235259
| -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 f6f5dc3..21637a7 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 668f596..6351633 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; |