From 352f41ba49962c326f6c3e68b4bac0de9d62f987 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 20 Nov 2006 11:19:31 +0000
Subject: Correction boucle du parseur en cas de caractÃère non unicode

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9394 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/lexer.ml4 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/parsing/lexer.ml4 b/parsing/lexer.ml4
index 3b60cf2e03..9f7e422d73 100644
--- a/parsing/lexer.ml4
+++ b/parsing/lexer.ml4
@@ -80,6 +80,7 @@ let error_unsupported_unicode_character n cs =
 
 let error_utf8 cs =
   let bp = Stream.count cs in
+  Stream.junk cs; (* consume the char to avoid read it and fail again *)
   err (bp, bp+1) Illegal_character
 
 let njunk n = Util.repeat n Stream.junk
-- 
cgit v1.2.3