From: Arnaud Charlet <charlet@adacore.com>
Date: Mon, 3 Jan 2022 10:51:07 +0000 (+0000)
Subject: [Ada] PR ada/79724
X-Git-Tag: basepoints/gcc-13~1854
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7aa3800216ea991050ec904a28c628cd7799021b;p=thirdparty%2Fgcc.git

[Ada] PR ada/79724

gcc/ada/

	PR ada/79724
	* osint.adb (Program_Name): Fix handling of suffixes.
---

diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb
index d96fdf428eda..3ac4fd582c56 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