From ee384af77c0d11436fd6027ef2eb29115e1ab251 Mon Sep 17 00:00:00 2001
From: Piotr Trojanek <trojanek@adacore.com>
Date: Mon, 9 Jun 2025 16:11:48 +0200
Subject: [PATCH] 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.
---
 gcc/ada/errid.ads | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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,
-- 
2.47.3