https://gcc.gnu.org/g:a172d6cfa0634d932d30e36636d1bd79ae70c27c

commit r15-6578-ga172d6cfa0634d932d30e36636d1bd79ae70c27c
Author: Piotr Trojanek <troja...@adacore.com>
Date:   Sun Jan 14 21:15:37 2024 +0100

    ada: Ada version used to compile runtime is constant
    
    Code cleanup.
    
    gcc/ada/ChangeLog:
    
            * opt.ads (Ada_Version_Runtime): Now a constant, since it cannot
            and should never be modified.

Diff:
---
 gcc/ada/opt.ads | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/ada/opt.ads b/gcc/ada/opt.ads
index aea52f3ad697..a09a1ccffa6f 100644
--- a/gcc/ada/opt.ads
+++ b/gcc/ada/opt.ads
@@ -127,7 +127,7 @@ package Opt is
    --  remains set to Ada_Version_Default). This is used in the rare cases
    --  (notably pragma Obsolescent) where we want the explicit version set.
 
-   Ada_Version_Runtime : Ada_Version_Type := Ada_With_All_Extensions;
+   Ada_Version_Runtime : constant Ada_Version_Type := Ada_With_All_Extensions;
    --  GNAT
    --  Ada version used to compile the runtime. Used to set Ada_Version (but
    --  not Ada_Version_Explicit) when compiling predefined or internal units.

Reply via email to