diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2024-12-20 00:13:57 +0100 |
|---|---|---|
| committer | Marc Poulhiès <dkm@gcc.gnu.org> | 2025-01-07 13:33:35 +0100 |
| commit | d0f0f9fb8d5410c7306b56a6395e9c82b096a149 (patch) | |
| tree | 521b78d5bbee944e520c522e72353041e34cbcc9 /gcc/ada | |
| parent | 0a71f5b5ca5bac57c660f563940b8baeb3552870 (diff) | |
| download | gcc-d0f0f9fb8d5410c7306b56a6395e9c82b096a149.zip gcc-d0f0f9fb8d5410c7306b56a6395e9c82b096a149.tar.gz gcc-d0f0f9fb8d5410c7306b56a6395e9c82b096a149.tar.bz2 | |
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.
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/repinfo-input.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/repinfo-input.adb b/gcc/ada/repinfo-input.adb index 78de441..c5cc34a 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 |