Minor reformatting.

From-SVN: r237518
This commit is contained in:
Arnaud Charlet 2016-06-16 12:29:15 +02:00
parent 4bfb35fdce
commit 15efc175f7
1 changed files with 1 additions and 2 deletions

View File

@ -6960,8 +6960,7 @@ package body Exp_Ch3 is
if Comes_From_Source (Def_Id) if Comes_From_Source (Def_Id)
and then (Has_Default_Init_Cond (Typ) and then (Has_Default_Init_Cond (Typ)
or else or else Has_Inherited_Default_Init_Cond (Typ))
Has_Inherited_Default_Init_Cond (Typ))
and then not Has_Init_Expression (N) and then not Has_Init_Expression (N)
and then Present (Default_Init_Cond_Procedure (Typ)) and then Present (Default_Init_Cond_Procedure (Typ))
then then