From 86d2f05621aed0d34dc97a4d619958aa7e170d1c Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 2 May 2016 12:07:02 +0200 Subject: [PATCH] Minor reformatting. From-SVN: r235734 --- gcc/ada/exp_ch5.adb | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb index 16702eb3661..5012f32c743 100644 --- a/gcc/ada/exp_ch5.adb +++ b/gcc/ada/exp_ch5.adb @@ -2798,13 +2798,15 @@ package body Exp_Ch5 is if Predicates_Ignored (Etype (Expr)) then declare - Except : constant Node_Id := - Make_Raise_Constraint_Error (Loc, - Reason => CE_Invalid_Data); + Except : constant Node_Id := + Make_Raise_Constraint_Error (Loc, + Reason => CE_Invalid_Data); New_Alt : constant Node_Id := - Make_Case_Statement_Alternative (Loc, - Discrete_Choices => New_List (Make_Others_Choice (Loc)), - Statements => New_List (Except)); + Make_Case_Statement_Alternative (Loc, + Discrete_Choices => New_List ( + Make_Others_Choice (Loc)), + Statements => New_List (Except)); + begin Append (New_Alt, Alternatives (N)); Analyze_And_Resolve (Except); -- 2.30.2