From: Robert Dewar <dewar@adacore.com>
Date: Wed, 20 Aug 2008 15:50:31 +0000 (+0200)
Subject: exp_ch5.adb: Minor reformatting
X-Git-Tag: releases/gcc-4.4.0~3016
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=dfe8dac3de3fe12be5e045326e1674b0d2bb823d;p=thirdparty%2Fgcc.git

exp_ch5.adb: Minor reformatting

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

	* exp_ch5.adb: Minor reformatting

From-SVN: r139318
---

diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb
index 952501ea82fb..98f18790fce5 100644
--- a/gcc/ada/exp_ch5.adb
+++ b/gcc/ada/exp_ch5.adb
@@ -2543,13 +2543,12 @@ package body Exp_Ch5 is
          if Is_Build_In_Place
            and then
                (Controlled_Type (Parent_Function_Typ)
-             or else
-               (Is_Class_Wide_Type (Parent_Function_Typ)
-                  and then Controlled_Type (Root_Type (Parent_Function_Typ)))
-             or else
-               Controlled_Type (Etype (Return_Object_Entity))
-             or else
-               (Present (Exp) and then Controlled_Type (Etype (Exp))))
+                 or else (Is_Class_Wide_Type (Parent_Function_Typ)
+                           and then
+                             Controlled_Type (Root_Type (Parent_Function_Typ)))
+                 or else Controlled_Type (Etype (Return_Object_Entity))
+                 or else (Present (Exp)
+                           and then Controlled_Type (Etype (Exp))))
          then
             Append_To (Statements, Move_Final_List);
          end if;