From b98d0bd6f67eaab7ebd6b76955bcaeea2383e81a Mon Sep 17 00:00:00 2001 From: charlet Date: Mon, 2 May 2016 10:07:02 +0000 Subject: [PATCH] Minor reformatting. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@235734 138bc75d-0d04-0410-961f-82ee72b054a4 --- 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 16702eb3661a..5012f32c7434 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.47.3