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 5bc9b42e7bad290f292b0925efe90ced0ba3415a..425d624f0310dcb6caf0f8e915d75ae262ef7b51 100644 (file)
--- 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);