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 952501e..98f1879 100644 (file)
--- 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;