From dfe8dac3de3fe12be5e045326e1674b0d2bb823d Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Wed, 20 Aug 2008 17:50:31 +0200 Subject: [PATCH] exp_ch5.adb: Minor reformatting 2008-08-20 Robert Dewar * exp_ch5.adb: Minor reformatting From-SVN: r139318 --- gcc/ada/exp_ch5.adb | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb index 952501ea82f..98f18790fce 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; -- 2.30.2