From 1e70cf2ebacb8eed39b0e7a4191c07052ce64181 Mon Sep 17 00:00:00 2001 From: Vasiliy Fofanov Date: Fri, 5 Jul 2019 07:03:35 +0000 Subject: [PATCH] [Ada] Ada.Wide_Wide_Characters.Handling: fix comments 2019-07-05 Vasiliy Fofanov gcc/ada/ * libgnat/a-wichha.ads (Is_Alphanumeric): Replace comment with the correct one. Also capitalize references to False throughout. From-SVN: r273125 --- gcc/ada/ChangeLog | 6 ++++++ gcc/ada/libgnat/a-wichha.ads | 30 +++++++++++++++--------------- 2 files changed, 21 insertions(+), 15 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 8373be77975..eb040231d95 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2019-07-05 Vasiliy Fofanov + + * libgnat/a-wichha.ads (Is_Alphanumeric): Replace comment with + the correct one. Also capitalize references to False + throughout. + 2019-07-05 Eric Botcazou * exp_ch4.adb (Expand_N_Indexed_Component): Do not expand actual diff --git a/gcc/ada/libgnat/a-wichha.ads b/gcc/ada/libgnat/a-wichha.ads index 583308ec6a0..a906e02d799 100644 --- a/gcc/ada/libgnat/a-wichha.ads +++ b/gcc/ada/libgnat/a-wichha.ads @@ -25,28 +25,28 @@ package Ada.Wide_Characters.Handling is function Is_Control (Item : Wide_Character) return Boolean; pragma Inline (Is_Control); -- Returns True if the Wide_Character designated by Item is categorized as - -- other_control, otherwise returns false. + -- other_control, otherwise returns False. function Is_Letter (Item : Wide_Character) return Boolean; pragma Inline (Is_Letter); -- Returns True if the Wide_Character designated by Item is categorized as -- letter_uppercase, letter_lowercase, letter_titlecase, letter_modifier, - -- letter_other, or number_letter. Otherwise returns false. + -- letter_other, or number_letter. Otherwise returns False. function Is_Lower (Item : Wide_Character) return Boolean; pragma Inline (Is_Lower); -- Returns True if the Wide_Character designated by Item is categorized as - -- letter_lowercase, otherwise returns false. + -- letter_lowercase, otherwise returns False. function Is_Upper (Item : Wide_Character) return Boolean; pragma Inline (Is_Upper); -- Returns True if the Wide_Character designated by Item is categorized as - -- letter_uppercase, otherwise returns false. + -- letter_uppercase, otherwise returns False. function Is_Digit (Item : Wide_Character) return Boolean; pragma Inline (Is_Digit); -- Returns True if the Wide_Character designated by Item is categorized as - -- number_decimal, otherwise returns false. + -- number_decimal, otherwise returns False. function Is_Decimal_Digit (Item : Wide_Character) return Boolean renames Is_Digit; @@ -54,51 +54,51 @@ package Ada.Wide_Characters.Handling is function Is_Hexadecimal_Digit (Item : Wide_Character) return Boolean; -- Returns True if the Wide_Character designated by Item is categorized as -- number_decimal, or is in the range 'A' .. 'F' or 'a' .. 'f', otherwise - -- returns false. + -- returns False. function Is_Alphanumeric (Item : Wide_Character) return Boolean; pragma Inline (Is_Alphanumeric); -- Returns True if the Wide_Character designated by Item is categorized as - -- number_decimal, or is in the range 'A' .. 'F' or 'a' .. 'f', otherwise - -- returns false. + -- letter_uppercase, letter_lowercase, letter_titlecase, letter_modifier, + -- letter_other, number_letter, or number_decimal; otherwise returns False. function Is_Special (Item : Wide_Character) return Boolean; pragma Inline (Is_Special); -- Returns True if the Wide_Character designated by Item is categorized -- as graphic_character, but not categorized as letter_uppercase, -- letter_lowercase, letter_titlecase, letter_modifier, letter_other, - -- number_letter, or number_decimal. Otherwise returns false. + -- number_letter, or number_decimal. Otherwise returns False. function Is_Line_Terminator (Item : Wide_Character) return Boolean; pragma Inline (Is_Line_Terminator); -- Returns True if the Wide_Character designated by Item is categorized as -- separator_line or separator_paragraph, or if Item is a conventional line - -- terminator character (CR, LF, VT, or FF). Otherwise returns false. + -- terminator character (CR, LF, VT, or FF). Otherwise returns False. function Is_Mark (Item : Wide_Character) return Boolean; pragma Inline (Is_Mark); -- Returns True if the Wide_Character designated by Item is categorized as - -- mark_non_spacing or mark_spacing_combining, otherwise returns false. + -- mark_non_spacing or mark_spacing_combining, otherwise returns False. function Is_Other_Format (Item : Wide_Character) return Boolean; pragma Inline (Is_Other_Format); -- Returns True if the Wide_Character designated by Item is categorized as - -- other_format, otherwise returns false. + -- other_format, otherwise returns False. function Is_Punctuation_Connector (Item : Wide_Character) return Boolean; pragma Inline (Is_Punctuation_Connector); -- Returns True if the Wide_Character designated by Item is categorized as - -- punctuation_connector, otherwise returns false. + -- punctuation_connector, otherwise returns False. function Is_Space (Item : Wide_Character) return Boolean; pragma Inline (Is_Space); -- Returns True if the Wide_Character designated by Item is categorized as - -- separator_space, otherwise returns false. + -- separator_space, otherwise returns False. function Is_Graphic (Item : Wide_Character) return Boolean; pragma Inline (Is_Graphic); -- Returns True if the Wide_Character designated by Item is categorized as - -- graphic_character, otherwise returns false. + -- graphic_character, otherwise returns False. function To_Lower (Item : Wide_Character) return Wide_Character; pragma Inline (To_Lower); -- 2.30.2