From 7aa3800216ea991050ec904a28c628cd7799021b Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 3 Jan 2022 10:51:07 +0000 Subject: [PATCH] [Ada] PR ada/79724 gcc/ada/ PR ada/79724 * osint.adb (Program_Name): Fix handling of suffixes. --- gcc/ada/osint.adb | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb index d96fdf428ed..3ac4fd582c5 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