From 982fceeceb789e138dd6af1c6bb6842b346d9282 Mon Sep 17 00:00:00 2001 From: charlet Date: Wed, 20 Apr 2016 10:38:24 +0000 Subject: [PATCH] 2016-04-20 Hristian Kirtchev * exp_unst.adb: Minor reformatting. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@235259 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/exp_unst.adb | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index f6f5dc34e795..21637a7662ad 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2016-04-20 Hristian Kirtchev + + * exp_unst.adb: Minor reformatting. + 2016-04-20 Hristian Kirtchev * exp_ch4.adb (Expand_Allocator_Expression): Ensure that the diff --git a/gcc/ada/exp_unst.adb b/gcc/ada/exp_unst.adb index 668f59691534..635163308070 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; -- 2.47.3