robur/webauthn
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

CBOR monotone: Major type 7 is short field encoded

Browse source
This commit is contained in:
Reynir Björnsson 2021-10-09 16:29:40 +02:00
parent 9e8f765703
commit 3edd956493
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
cbor/CBOR.ml
View file

@ -163,7 +163,7 @@ module Simple = struct
Int64.unsigned_compare n n' < 0 || Int64.unsigned_compare n n' < 0 ||
Int64.unsigned_compare n n' = 0 && Int64.unsigned_compare n n' = 0 &&
begin begin
List.mem (major_typ s) [2; 3; 4; 5; 7 (* XXX: unsure about 7 *)] && List.mem (major_typ s) [2; 3; 4; 5] &&
let len = Int64.to_int n in let len = Int64.to_int n in
String.sub s off len < String.sub s' off len String.sub s off len < String.sub s' off len
end end