https://gcc.gnu.org/g:e818a8e8bf0de77672386d5953cdb5bc3dc5a605
commit r16-4991-ge818a8e8bf0de77672386d5953cdb5bc3dc5a605 Author: Ronan Desplanques <[email protected]> Date: Thu Oct 16 10:07:04 2025 +0200 ada: Tweak Is_Predefined_File_Name This patch extends the set of names recognized by Is_Predefined_File_Name so that names that start with "a-" and are longer than 12 characters are considered predefined. This is motivated by the need to make gprname work with the in-tree a-strunb__shared.ads file that uses GNAT syntax extensions but whose name wasn't considered predefined before this patch. gcc/ada/ChangeLog: * fname.adb (Is_Predefined_File_Name): Tweak. Diff: --- gcc/ada/fname.adb | 13 ------------- 1 file changed, 13 deletions(-) diff --git a/gcc/ada/fname.adb b/gcc/ada/fname.adb index 6022d3b2ba8d..c914c55f8266 100644 --- a/gcc/ada/fname.adb +++ b/gcc/ada/fname.adb @@ -134,19 +134,6 @@ package body Fname is Renamings_Included : Boolean := True) return Boolean is begin - -- Definitely false if longer than 12 characters (8.3), except for the - -- Interfaces packages and also the implementation units of the 128-bit - -- types under System. - - if Fname'Length > 12 - and then Fname (Fname'First .. Fname'First + 1) /= "i-" - and then Fname (Fname'First .. Fname'First + 1) /= "s-" - and then not Has_Prefix (Fname, "system-") - and then not Has_Prefix (Fname, "interfac__") - then - return False; - end if; - if not Has_Internal_Extension (Fname) then return False; end if;
