ada: Turn diagnostic object from variable to constant

Diagnostic entries are not supposed to be modified while compiling the code.
Code cleanup; behavior is unaffected.

gcc/ada/ChangeLog:

	* errid.ads (Diagnostic_Entries): Now a constant.

diff --git a/gcc/ada/errid.ads b/gcc/ada/errid.ads
index 56516d028bc1fe5b03f2e105b435a4448a4a2422..acabc3b1dfe8e7a5fc783d58731e798df154e72e 100644 (file)
--- a/gcc/ada/errid.ads
+++ b/gcc/ada/errid.ads
@@ -76,7 +76,7 @@ package Errid is
    --    - Optionally additional information
    --    TODO: the mandatory fields for the documentation file could be changed
 
-   Diagnostic_Entries : Diagnostics_Registry_Type :=
+   Diagnostic_Entries : constant Diagnostics_Registry_Type :=
      (No_Diagnostic_Id => <>,
       GNAT0001         =>
         (Status        => Active,