diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-10-28 15:22:09 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-10-28 15:22:09 +0100 |
| commit | 68523ddb284e83f64b2fd0249298589bf04389c2 (patch) | |
| tree | 42db45f77c47ebe5caa380893c706854f115f1ab /gcc/ada/styleg.adb | |
| parent | 66a63e0d327753984f05353b4cf68e0f734311fc (diff) | |
| download | gcc-68523ddb284e83f64b2fd0249298589bf04389c2.zip gcc-68523ddb284e83f64b2fd0249298589bf04389c2.tar.gz gcc-68523ddb284e83f64b2fd0249298589bf04389c2.tar.bz2 | |
[multiple changes]
2009-10-28 Bob Duff <duff@adacore.com>
* s-fileio.adb: Give more information in exception messages.
2009-10-28 Robert Dewar <dewar@adacore.com>
* gnat_ugn.texi: Document new -gnatyt requirement for space after right
paren if next token starts with digit or letter.
* styleg.adb (Check_Right_Paren): New rule for space after if next
character is a letter or digit.
From-SVN: r153663
Diffstat (limited to 'gcc/ada/styleg.adb')
| -rw-r--r-- | gcc/ada/styleg.adb | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/styleg.adb b/gcc/ada/styleg.adb index 8bd9f2e..bf72722 100644 --- a/gcc/ada/styleg.adb +++ b/gcc/ada/styleg.adb @@ -813,12 +813,17 @@ package body Styleg is -- Check_Right_Paren -- ----------------------- - -- In check tokens mode (-gnatyt), right paren must never be preceded by + -- In check tokens mode (-gnatyt), right paren must not be immediately + -- followed by an identifier character, and must never be preceded by -- a space unless it is the initial non-blank character on the line. procedure Check_Right_Paren is begin if Style_Check_Tokens then + if Identifier_Char (Source (Token_Ptr + 1)) then + Error_Space_Required (Token_Ptr + 1); + end if; + Check_No_Space_Before; end if; end Check_Right_Paren; |