From: Piotr Trojanek <trojanek@adacore.com>
Date: Mon, 9 Jun 2025 14:11:48 +0000 (+0200)
Subject: ada: Turn diagnostic object from variable to constant
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=ee384af77c0d11436fd6027ef2eb29115e1ab251;p=thirdparty%2Fgcc.git

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 56516d028bc..acabc3b1dfe 100644
--- 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,