diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2021-01-03 11:27:15 -0500 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-05-04 05:17:28 -0400 |
| commit | d90be3279ff664609c6df0e03443c940621f43c0 (patch) | |
| tree | f0417071ccea514edf2a5f2b966fb22e37190e51 | |
| parent | 08fff201c92109b5476a4cc211c71de557ec87b1 (diff) | |
| download | gcc-d90be3279ff664609c6df0e03443c940621f43c0.zip gcc-d90be3279ff664609c6df0e03443c940621f43c0.tar.gz gcc-d90be3279ff664609c6df0e03443c940621f43c0.tar.bz2 | |
[Ada] Address ??? comments in styleg.adb
gcc/ada/
* styleg.adb: Address ??? comments.
| -rw-r--r-- | gcc/ada/styleg.adb | 8 |
1 files 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 |