exp_unst.adb: Minor reformatting.

2016-04-20  Hristian Kirtchev  <kirtchev@adacore.com>

	* exp_unst.adb: Minor reformatting.

From-SVN: r235259

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index f6f5dc3..21637a7 100644 (file)
--- 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 (file)
--- 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;