diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2022-01-03 10:51:07 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-01-11 13:24:48 +0000 |
| commit | 7aa3800216ea991050ec904a28c628cd7799021b (patch) | |
| tree | ba793faf21a1ffb25fed0b1d0fc8f5eb5bc77ee8 /gcc | |
| parent | 6e82658607075193c2bc85041b045ab748b14600 (diff) | |
| download | gcc-7aa3800216ea991050ec904a28c628cd7799021b.zip gcc-7aa3800216ea991050ec904a28c628cd7799021b.tar.gz gcc-7aa3800216ea991050ec904a28c628cd7799021b.tar.bz2 | |
[Ada] PR ada/79724
gcc/ada/
PR ada/79724
* osint.adb (Program_Name): Fix handling of suffixes.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/osint.adb | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb index d96fdf4..3ac4fd5 100644 --- a/gcc/ada/osint.adb +++ b/gcc/ada/osint.adb @@ -2279,8 +2279,6 @@ package body Osint is Find_Program_Name; - Start_Of_Suffix := Name_Len + 1; - -- Find the target prefix if any, for the cross compilation case. -- For instance in "powerpc-elf-gcc" the target prefix is -- "powerpc-elf-" @@ -2304,9 +2302,7 @@ package body Osint is end if; end loop; - if End_Of_Prefix > 1 then - Start_Of_Suffix := End_Of_Prefix + Prog'Length + 1; - end if; + Start_Of_Suffix := End_Of_Prefix + Prog'Length + 1; -- Create the new program name |