From: Robert Dewar <dewar@adacore.com>
Date: Fri, 23 May 2008 14:33:24 +0000 (+0200)
Subject: exp_dist.adb: Minor reformatting
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=651a2cb04b6c24cc07179449faa0b46e9f75dac6;p=gcc.git

exp_dist.adb: Minor reformatting

2008-05-23  Robert Dewar  <dewar@adacore.com>

	* exp_dist.adb: Minor reformatting

From-SVN: r135810
---

diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb
index a409fe44191..47e193fb8bc 100644
--- a/gcc/ada/exp_dist.adb
+++ b/gcc/ada/exp_dist.adb
@@ -3094,6 +3094,7 @@ package body Exp_Dist is
          declare
             Zero_Statements : List_Id;
             --  Statements executed when a zero value is received
+
          begin
             if Can_Never_Be_Null (RACW_Type) then
                Zero_Statements := New_List (
@@ -11364,6 +11365,7 @@ package body Exp_Dist is
    is
       Stub_Elements : constant Stub_Structure :=
                         Stubs_Table.Get (Full_View);
+
    begin
       --  For an RACW encountered before the freeze point of its designated
       --  type, the stub type is generated at the point of the RACW declaration
@@ -11378,6 +11380,7 @@ package body Exp_Dist is
             Saved_Scope : constant Entity_Id := Current_Scope;
             Stubs_Scope : constant Entity_Id :=
                             Scope (Stub_Elements.Stub_Type);
+
          begin
             if Current_Scope /= Stubs_Scope then
                Push_Scope (Stubs_Scope);