[COMMITTED 23/26] ada: Reuse local constant when handling External_Initialization

[Marc Poulhiès]

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

Code cleanup; behavior is unaffected.

gcc/ada/ChangeLog:

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

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

---
 gcc/ada/sem_ch3.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
-- 
2.43.0