From ace2981cff1d866368067a804fb218f9fd604f9b Mon Sep 17 00:00:00 2001 From: charlet Date: Mon, 4 Aug 2008 10:23:07 +0000 Subject: [PATCH] 2008-08-04 Robert Dewar * exp_dist.adb: Minor reformatting git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138602 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/exp_dist.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb index 8576cbf..38693f1 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; -- 2.7.4