[COMMITTED 23/42] ada: Remove redundant nested aggregates from diagnostics code

[Marc Poulhiès]

From: Piotr Trojanek <troja...@adacore.com>

A nested aggregate with a single "others => <>" clause is equivalent to a box
itself. Code cleanup; semantics is unaffected.

gcc/ada/ChangeLog:

        * errid.ads (Diagnostic_Entries): Remove nested aggregate.
        * errsw.adb (Switches): Likewise.

Tested on x86_64-pc-linux-gnu, committed on master.

---
 gcc/ada/errid.ads | 2 +-
 gcc/ada/errsw.adb | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/gcc/ada/errid.ads b/gcc/ada/errid.ads
index 21ef79c1401..56516d028bc 100644
--- a/gcc/ada/errid.ads
+++ b/gcc/ada/errid.ads
@@ -77,7 +77,7 @@ package Errid is
    --    TODO: the mandatory fields for the documentation file could be changed
 
    Diagnostic_Entries : Diagnostics_Registry_Type :=
-     (No_Diagnostic_Id => (others => <>),
+     (No_Diagnostic_Id => <>,
       GNAT0001         =>
         (Status        => Active,
          Human_Id      => new String'("Default_Iterator_Not_Primitive_Error"),
diff --git a/gcc/ada/errsw.adb b/gcc/ada/errsw.adb
index f4c4128fa3f..511e00d3b93 100644
--- a/gcc/ada/errsw.adb
+++ b/gcc/ada/errsw.adb
@@ -30,7 +30,7 @@ package body Errsw is
    Switches : constant array (Switch_Id)
      of Switch_Type :=
      (No_Switch_Id            =>
-        (others => <>),
+        <>,
       gnatwb                  =>
         (Human_Id          => new String'("Warn_On_Bad_Fixed_Value"),
          Status            => Active,
-- 
2.43.0