gcc/ada/
PR ada/79724
* osint.adb (Program_Name): Fix handling of suffixes.
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-"
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