diff options
Diffstat (limited to 'gcc/ada/fname.adb')
| -rw-r--r-- | gcc/ada/fname.adb | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/gcc/ada/fname.adb b/gcc/ada/fname.adb index fd3e92e..a688564 100644 --- a/gcc/ada/fname.adb +++ b/gcc/ada/fname.adb @@ -149,13 +149,18 @@ package body Fname is if Name_Len > 8 then return False; - -- Definitely predefined if prefix is a- i- or s- + -- Definitely predefined if prefix is a- i- or s- followed by letter - elsif Name_Len > 2 + elsif Name_Len >= 3 and then Name_Buffer (2) = '-' - and then (Name_Buffer (1) = 'a' or else - Name_Buffer (1) = 'i' or else + and then (Name_Buffer (1) = 'a' + or else + Name_Buffer (1) = 'i' + or else Name_Buffer (1) = 's') + and then (Name_Buffer (3) in 'a' .. 'z' + or else + Name_Buffer (3) in 'A' .. 'Z') then return True; end if; |