From: Robert Dewar <dewar@adacore.com>
Date: Mon, 4 Aug 2008 10:23:07 +0000 (+0200)
Subject: exp_dist.adb: Minor reformatting
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=53aa444419c83c029c5502db0a3b01971d46d793;p=gcc.git

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 8576cbf94ad..38693f13b6a 100644
--- 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;