From: charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 20 Apr 2016 10:38:24 +0000 (+0000)
Subject: 2016-04-20  Hristian Kirtchev  <kirtchev@adacore.com>
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=982fceeceb789e138dd6af1c6bb6842b346d9282;p=thirdparty%2Fgcc.git

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
---

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  <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
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;