From 01531ac3079c3ae90e970e04506c1d2440385f7e Mon Sep 17 00:00:00 2001 From: Tom Jack Date: Thu, 20 Feb 2020 12:07:01 -0600 Subject: [PATCH] Support lowercase in hex bytes --- src/passes/1-parser/shared/Lexer.mll | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/passes/1-parser/shared/Lexer.mll b/src/passes/1-parser/shared/Lexer.mll index 2821acc85..8b213f70b 100644 --- a/src/passes/1-parser/shared/Lexer.mll +++ b/src/passes/1-parser/shared/Lexer.mll @@ -580,7 +580,7 @@ let letter = small | capital let ident = small (letter | '_' | digit)* let constr = capital (letter | '_' | digit)* let attr = ident | constr -let hexa_digit = digit | ['A'-'F'] +let hexa_digit = digit | ['A'-'F' 'a'-'f'] let byte = hexa_digit hexa_digit let byte_seq = byte | byte (byte | '_')* byte let bytes = "0x" (byte_seq? as seq)