From: Piotr Trojanek <trojanek@adacore.com>
Date: Thu, 10 Apr 2025 08:13:35 +0000 (+0200)
Subject: ada: Reuse local constant when handling External_Initialization
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a0765fe5d27c2a7185fa2bf82bde3ffea84ad679;p=thirdparty%2Fgcc.git

ada: Reuse local constant when handling External_Initialization

Code cleanup; behavior is unaffected.

gcc/ada/ChangeLog:

	* sem_ch3.adb (Apply_External_Initialization): Reuse local constant.
---

diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index 5bc9b42e7ba..425d624f031 100644
--- a/gcc/ada/sem_ch3.adb
+++ b/gcc/ada/sem_ch3.adb
@@ -3963,7 +3963,7 @@ package body Sem_Ch3 is
                   Data_Path_String : constant String :=
                     Absolute_Dir
                     & System.OS_Lib.Directory_Separator
-                    & Stringt.To_String (Strval (Def));
+                    & S;
 
                begin
                   Data_Path := Name_Find (Data_Path_String);