From d90be3279ff664609c6df0e03443c940621f43c0 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Sun, 3 Jan 2021 11:27:15 -0500 Subject: [PATCH] [Ada] Address ??? comments in styleg.adb gcc/ada/ * styleg.adb: Address ??? comments. --- gcc/ada/styleg.adb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/gcc/ada/styleg.adb b/gcc/ada/styleg.adb index a046e2d..a5f9e5c 100644 --- a/gcc/ada/styleg.adb +++ b/gcc/ada/styleg.adb @@ -82,7 +82,6 @@ package body Styleg is function Is_White_Space (C : Character) return Boolean; pragma Inline (Is_White_Space); -- Returns True for space or HT, False otherwise - -- What about VT and FF, should they return True ??? procedure Require_Following_Space; pragma Inline (Require_Following_Space); @@ -98,12 +97,13 @@ package body Styleg is -- Check_Abs_Or_Not -- ---------------------- - -- In check token mode (-gnatyt), ABS/NOT must be followed by a space + -- In check token mode (-gnatyt), ABS/NOT must be followed by a space or + -- a line feed. procedure Check_Abs_Not is begin if Style_Check_Tokens then - if Source (Scan_Ptr) > ' ' then -- ??? + if Source (Scan_Ptr) not in ' ' | ASCII.CR | ASCII.LF then Error_Space_Required (Scan_Ptr); end if; end if; @@ -113,7 +113,7 @@ package body Styleg is -- Check_Apostrophe -- ---------------------- - -- Do not allow space before or after apostrophe -- OR AFTER??? + -- Do not allow space after apostrophe procedure Check_Apostrophe is begin -- 2.7.4