exp_ch5.adb: Minor reformatting

2008-08-20 Robert Dewar <dewar@adacore.com> * exp_ch5.adb: Minor reformatting From-SVN: r139318

exp_ch5.adb: Minor reformatting
2008-08-20 Robert Dewar <dewar@adacore.com> * exp_ch5.adb: Minor reformatting From-SVN: r139318
dfe8dac3 · Robert Dewar · Arnaud Charlet · 5dc4a7f4 · dfe8dac3
Commit dfe8dac3 authored Aug 20, 2008 by Robert Dewar Committed by Arnaud Charlet Aug 20, 2008
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 7 deletions

gcc/ada/exp_ch5.adb
+6 -7

No files found.
--- 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;