diff options
| author | Bernhard Schommer <bschommer@users.noreply.github.com> | 2020-02-18 15:38:53 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-02-18 15:38:53 +0100 |
| commit | 797829058aedff543c1f30b269b8fc8a0be35e36 (patch) | |
| tree | 38c80cf2ebd26c2424d1713bf747c214df176aac /cparser/Lexer.mll | |
| parent | 9b881b7928ab7d21e9981133bef5b26e33b6cd9d (diff) | |
| download | compcert-kvx-797829058aedff543c1f30b269b8fc8a0be35e36.tar.gz compcert-kvx-797829058aedff543c1f30b269b8fc8a0be35e36.zip | |
Support vertical tabs and treat them as whitespace (#218)
Some preprocessors don't remove the vertical tab from the input
so we should be able to handle them in the lexer.
Diffstat (limited to 'cparser/Lexer.mll')
| -rw-r--r-- | cparser/Lexer.mll | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cparser/Lexer.mll b/cparser/Lexer.mll index 346477b5..e44a330f 100644 --- a/cparser/Lexer.mll +++ b/cparser/Lexer.mll @@ -177,7 +177,7 @@ let identifier_nondigit = let identifier = identifier_nondigit (identifier_nondigit|digit)* (* Whitespaces *) -let whitespace_char_no_newline = [' ' '\t' '\012' '\r'] +let whitespace_char_no_newline = [' ' '\t' '\011' '\012' '\r'] (* Integer constants *) let nonzero_digit = ['1'-'9'] |