diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2025-04-10 10:13:35 +0200 |
|---|---|---|
| committer | Marc Poulhiès <dkm@gcc.gnu.org> | 2025-06-12 10:37:57 +0200 |
| commit | a0765fe5d27c2a7185fa2bf82bde3ffea84ad679 (patch) | |
| tree | bd7943d5367825bdcf9b2d69f7e483367c396bf2 | |
| parent | 79635746c5f812afb317760449c852c8e5e6f0a1 (diff) | |
| download | gcc-a0765fe5d27c2a7185fa2bf82bde3ffea84ad679.zip gcc-a0765fe5d27c2a7185fa2bf82bde3ffea84ad679.tar.gz gcc-a0765fe5d27c2a7185fa2bf82bde3ffea84ad679.tar.bz2 | |
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.
| -rw-r--r-- | gcc/ada/sem_ch3.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 5bc9b42..425d624 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); |