[gcc r16-1458] ada: Reuse local constant when handling External_Initialization

[Marc Poulhies]

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

commit r16-1458-ga0765fe5d27c2a7185fa2bf82bde3ffea84ad679
Author: Piotr Trojanek <trojanek@adacore.com>
Date:   Thu Apr 10 10:13:35 2025 +0200

    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:
---
 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 5bc9b42e7bad..425d624f0310 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);