From bd717ec9b7edb898ec138f58a14821e776bb4fa3 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 18 Apr 2016 12:47:29 +0200 Subject: Minor code cleanups. From-SVN: r235125 --- gcc/ada/sem_aggr.adb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'gcc/ada/sem_aggr.adb') diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index 8e8b398..4657336 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -4446,8 +4446,8 @@ package body Sem_Aggr is Comp_Elmt := First_Elmt (Components); while Present (Comp_Elmt) loop - if - Ekind (Node (Comp_Elmt)) /= E_Discriminant + if Ekind (Node (Comp_Elmt)) /= + E_Discriminant then Process_Component (Node (Comp_Elmt)); end if; @@ -4599,8 +4599,8 @@ package body Sem_Aggr is elsif Others_Box = 1 and then Warn_On_Redundant_Constructs then Error_Msg_N ("others choice is redundant?", Box_Node); - Error_Msg_N ("\previous choices cover all components?", - Box_Node); + Error_Msg_N + ("\previous choices cover all components?", Box_Node); end if; exit Verification; -- cgit v1.1