diff options
Diffstat (limited to 'gcc/ada/csets.ads')
| -rw-r--r-- | gcc/ada/csets.ads | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/csets.ads b/gcc/ada/csets.ads index 9dc78ba..f0930df 100644 --- a/gcc/ada/csets.ads +++ b/gcc/ada/csets.ads @@ -80,12 +80,12 @@ package Csets is Fold_Lower : Translate_Table; -- Table to fold upper case identifier letters to lower case - Identifier_Char : Char_Array_Flags; - -- This table has True entries for all characters that can legally appear - -- in identifiers, including digits, the underline character, all letters - -- including upper and lower case and extended letters (as controlled by - -- the setting of Opt.Identifier_Character_Set), left bracket for brackets - -- notation wide characters and also ESC if wide characters are permitted - -- in identifiers using escape sequences starting with ESC. + function Identifier_Char (Item : Character) return Boolean; + -- Return True for all characters that can legally appear in identifiers, + -- including digits, the underline character, all letters including upper + -- and lower case and extended letters (as controlled by the setting of + -- Opt.Identifier_Character_Set), left bracket for brackets notation wide + -- characters and also ESC if wide characters are permitted in identifiers + -- using escape sequences starting with ESC. end Csets; |