[gcc r15-6642] ada: Fix constants overlayed by variables

[Marc Poulhi?s via Gcc-cvs]

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

commit r15-6642-gd0f0f9fb8d5410c7306b56a6395e9c82b096a149
Author: Piotr Trojanek <troja...@adacore.com>
Date:   Fri Dec 20 00:13:57 2024 +0100

    ada: Fix constants overlayed by variables
    
    Code cleanup suggested by GNATcheck rule Constant_Overlays.
    
    gcc/ada/ChangeLog:
    
            * repinfo-input.adb (Decode_Name, Read_Name_With_Prefix): Use 
constant
            overlay with pragma Import.

Diff:
---
 gcc/ada/repinfo-input.adb | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/gcc/ada/repinfo-input.adb b/gcc/ada/repinfo-input.adb
index 78de4412228a..c5cc34a63505 100644
--- a/gcc/ada/repinfo-input.adb
+++ b/gcc/ada/repinfo-input.adb
@@ -341,7 +341,8 @@ package body Repinfo.Input is
 
          else
             declare
-               S : String (Integer (Lo) .. Integer (Hi));
+               S : constant String (Integer (Lo) .. Integer (Hi));
+               pragma Import (Ada, S);
                for S'Address use Text (Lo)'Address;
 
             begin
@@ -627,7 +628,8 @@ package body Repinfo.Input is
 
          else
             declare
-               S : String (Integer (Lo) .. Integer (Hi));
+               S : constant String (Integer (Lo) .. Integer (Hi));
+               pragma Import (Ada, S);
                for S'Address use Text (Lo)'Address;
 
             begin