From: Piotr Trojanek <troja...@adacore.com>

Code cleanup.

gcc/ada/ChangeLog:

        * opt.ads (Ada_Version_Runtime): Now a constant, since it cannot
        and should never be modified.

Tested on x86_64-pc-linux-gnu, committed on master.

---
 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 aea52f3ad69..a09a1ccffa6 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.
-- 
2.43.0

Reply via email to