diff options
| author | Robert Dewar <dewar@adacore.com> | 2005-07-04 15:29:08 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-07-04 15:29:08 +0200 |
| commit | 323b59c470a055476f7b2089175de65036abf33c (patch) | |
| tree | 9aa3059f29b400cb9eab6f58d54ae06619ff26b1 /gcc/ada | |
| parent | 60050a2df1113651408e5cb751cb5a3cb0ecbb42 (diff) | |
| download | gcc-323b59c470a055476f7b2089175de65036abf33c.tar.gz | |
scng.adb: Do not consider Mod used as an attribute to be a keyword
2005-07-04 Robert Dewar <dewar@adacore.com>
* scng.adb: Do not consider Mod used as an attribute to be a keyword
From-SVN: r101585
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/scng.adb | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/gcc/ada/scng.adb b/gcc/ada/scng.adb index 163ba170cf7..74fdc14a37a 100644 --- a/gcc/ada/scng.adb +++ b/gcc/ada/scng.adb @@ -2330,14 +2330,18 @@ package body Scng is -- Ada 2005 (AI-284): Do not apply the style check in case of -- "pragma Interface" + -- Ada 2005 (AI-340): Do not apply the style check in case of + -- MOD attribute. + if Style_Check and then Source (Token_Ptr) <= 'Z' and then (Prev_Token /= Tok_Apostrophe or else - (Token /= Tok_Access - and then Token /= Tok_Delta - and then Token /= Tok_Digits - and then Token /= Tok_Range)) + (Token /= Tok_Access and then + Token /= Tok_Delta and then + Token /= Tok_Digits and then + Token /= Tok_Mod and then + Token /= Tok_Range)) and then (Token /= Tok_Interface or else (Token = Tok_Interface |