From e818a8e8bf0de77672386d5953cdb5bc3dc5a605 Mon Sep 17 00:00:00 2001 From: Ronan Desplanques Date: Thu, 16 Oct 2025 10:07:04 +0200 Subject: [PATCH] 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. --- gcc/ada/fname.adb | 13 ------------- 1 file changed, 13 deletions(-) diff --git a/gcc/ada/fname.adb b/gcc/ada/fname.adb index 6022d3b2ba8..c914c55f826 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; -- 2.47.3