[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 d96fdf4..3ac4fd5 100644 (file)
--- 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