From 61d1b085b96c6f9aa6cc952e7161c4f0e41794c8 Mon Sep 17 00:00:00 2001 From: Hristian Kirtchev Date: Wed, 20 Apr 2016 10:38:24 +0000 Subject: [PATCH] exp_unst.adb: Minor reformatting. 2016-04-20 Hristian Kirtchev * exp_unst.adb: Minor reformatting. From-SVN: r235259 --- 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 f6f5dc34e79..21637a7662a 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 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; -- 2.30.2