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 f6f5dc34e79515794353749cc4def5641041d3db..21637a7662ad51d902b67302ca035dc65e8d1ef7 100644 (file)
--- 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 668f596915346435370d0fc337896277f8b01fbe..63516330807012d2d7e18d9322fb366959cee6b6 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;