diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-06-16 12:29:15 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-06-16 12:29:15 +0200 |
| commit | 15efc175f7283997889516bdfe67f5cb87e4c5e0 (patch) | |
| tree | e84a3f31fac0791e795783eb663454ff9008b75f /gcc | |
| parent | 4bfb35fdce6264b9b711fe70474746fed9dcdfb1 (diff) | |
| download | gcc-15efc175f7283997889516bdfe67f5cb87e4c5e0.zip gcc-15efc175f7283997889516bdfe67f5cb87e4c5e0.tar.gz gcc-15efc175f7283997889516bdfe67f5cb87e4c5e0.tar.bz2 | |
Minor reformatting.
From-SVN: r237518
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_ch3.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index 43d27ba..d3b21a8 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -6960,8 +6960,7 @@ package body Exp_Ch3 is if Comes_From_Source (Def_Id) and then (Has_Default_Init_Cond (Typ) - or else - Has_Inherited_Default_Init_Cond (Typ)) + or else Has_Inherited_Default_Init_Cond (Typ)) and then not Has_Init_Expression (N) and then Present (Default_Init_Cond_Procedure (Typ)) then |