diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-11-25 17:39:04 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-11-25 17:39:04 +0000 |
| commit | 9489721652bb443b5ed680701d94283737038f0b (patch) | |
| tree | b6d99df97476705f66b6ddf0f432d0ea64b3c4f9 /parsing/lexer.ml4 | |
| parent | a9a6c796d25130293584c7425b52f91b84c0f6ca (diff) | |
Monomorphization (parsing)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16000 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/lexer.ml4')
| -rw-r--r-- | parsing/lexer.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/lexer.ml4 b/parsing/lexer.ml4 index 80940b4d3..4b3a3f3a1 100644 --- a/parsing/lexer.ml4 +++ b/parsing/lexer.ml4 @@ -131,7 +131,7 @@ let utf8_char_size cs = function let njunk n = Util.repeat n Stream.junk let check_utf8_trailing_byte cs c = - if Char.code c land 0xC0 <> 0x80 then error_utf8 cs + if not (Int.equal (Char.code c land 0xC0) 0x80) then error_utf8 cs (* Recognize utf8 blocks (of length less than 4 bytes) *) (* but don't certify full utf8 compliance (e.g. no emptyness check) *) |