exp_dist.adb: Minor reformatting

2008-08-04  Robert Dewar  <dewar@adacore.com>

	* exp_dist.adb: Minor reformatting

From-SVN: r138602

diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb
index 8576cbf94ad8ba687d4e1926fb9c94c1c7c06dd8..38693f13b6a6b825bf14104bf5f03810395bb80c 100644 (file)
--- a/gcc/ada/exp_dist.adb
+++ b/gcc/ada/exp_dist.adb
@@ -11005,13 +11005,13 @@ package body Exp_Dist is
             Nam : Name_Id) return Entity_Id
          is
          begin
-
             declare
                Serial : Nat := 0;
                --  For tagged types, we use a canonical name so that it matches
                --  the primitive spec. For all other cases, we use a serialized
                --  name so that multiple generations of the same procedure do
                --  not clash.
+
             begin
                if not Is_Tagged_Type (Typ) then
                   Serial := Increment_Serial_Number;