From: Ronan Desplanques <[email protected]>
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.
Tested on x86_64-pc-linux-gnu, committed on master.
---
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.51.0
