diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-18 12:47:29 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-18 12:47:29 +0200 |
| commit | bd717ec9b7edb898ec138f58a14821e776bb4fa3 (patch) | |
| tree | ab847034983158c671f1897fe7841249ad6a0eeb /gcc/ada/sem_aggr.adb | |
| parent | 87feba051d2870479fab45d2a8671bc4e6d7817f (diff) | |
| download | gcc-bd717ec9b7edb898ec138f58a14821e776bb4fa3.zip gcc-bd717ec9b7edb898ec138f58a14821e776bb4fa3.tar.gz gcc-bd717ec9b7edb898ec138f58a14821e776bb4fa3.tar.bz2 | |
Minor code cleanups.
From-SVN: r235125
Diffstat (limited to 'gcc/ada/sem_aggr.adb')
| -rw-r--r-- | gcc/ada/sem_aggr.adb | 8 |
1 files changed, 4 insertions, 4 deletions
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; |