From d0f0f9fb8d5410c7306b56a6395e9c82b096a149 Mon Sep 17 00:00:00 2001
From: Piotr Trojanek <trojanek@adacore.com>
Date: Fri, 20 Dec 2024 00:13:57 +0100
Subject: [PATCH] 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.
---
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
--
GitLab