diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-08-20 17:50:31 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-20 17:50:31 +0200 |
| commit | dfe8dac3de3fe12be5e045326e1674b0d2bb823d (patch) | |
| tree | 4596754bbe3d9fef55aef60d25ab8e56510c7264 | |
| parent | 5dc4a7f44c935041908f1f0b1c45e191d6d0a532 (diff) | |
| download | gcc-dfe8dac3de3fe12be5e045326e1674b0d2bb823d.zip gcc-dfe8dac3de3fe12be5e045326e1674b0d2bb823d.tar.gz gcc-dfe8dac3de3fe12be5e045326e1674b0d2bb823d.tar.bz2 | |
exp_ch5.adb: Minor reformatting
2008-08-20 Robert Dewar <dewar@adacore.com>
* exp_ch5.adb: Minor reformatting
From-SVN: r139318
| -rw-r--r-- | gcc/ada/exp_ch5.adb | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb index 952501e..98f1879 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; |