ada: Remove redundant nested aggregates from diagnostics code

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.

diff --git a/gcc/ada/errid.ads b/gcc/ada/errid.ads
index 21ef79c14017cae6cd019ff79339f63b33358b6b..56516d028bc1fe5b03f2e105b435a4448a4a2422 100644 (file)
--- 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 f4c4128fa3f221fa56f4375bd9c9ffd40c2acbf0..511e00d3b93e58dfae4454a92267ef01fbaaec63 100644 (file)
--- 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,