diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-05-02 12:07:02 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-05-02 12:07:02 +0200 |
| commit | 86d2f05621aed0d34dc97a4d619958aa7e170d1c (patch) | |
| tree | 02c45ef2ccdc589549436201ad2bdd3c01d34e1a | |
| parent | 51122913ce1b40087fecc4ae4b21a8ece12ed612 (diff) | |
| download | gcc-86d2f05621aed0d34dc97a4d619958aa7e170d1c.zip gcc-86d2f05621aed0d34dc97a4d619958aa7e170d1c.tar.gz gcc-86d2f05621aed0d34dc97a4d619958aa7e170d1c.tar.bz2 | |
Minor reformatting.
From-SVN: r235734
| -rw-r--r-- | gcc/ada/exp_ch5.adb | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb index 16702eb..5012f32 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); |