fix the parser by adding the character 'b' into the case of warning instead of raise an error'

This commit is contained in:
Lý Kim Quyên 2018-11-19 11:06:10 +01:00 committed by Benjamin Canou
parent 9f5ebc659e
commit eb673b19f2

View File

@ -235,7 +235,7 @@ let tokenize source =
begin match uchar_to_char c with begin match uchar_to_char c with
| Some ('0'.. '9') -> integer acc start | Some ('0'.. '9') -> integer acc start
| Some 'x' -> bytes acc start | Some 'x' -> bytes acc start
| Some ('a' | 'c'..'w' | 'y' | 'z' | 'A'..'Z') -> | Some ('a'..'w' | 'y' | 'z' | 'A'..'Z') ->
errors := Missing_break_after_number stop :: !errors ; errors := Missing_break_after_number stop :: !errors ;
back charloc ; back charloc ;
skip (tok start stop (Int "0") :: acc) skip (tok start stop (Int "0") :: acc)