balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

[data_encoding] use MBytes.{get/set}_char to read/write binary data instead of int8

Browse Source
This commit is contained in:
OCamlPro-Iguernlala 2017-03-31 17:46:10 +02:00
parent 9b3cde5df9
commit a330f3bcc5
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/minutils/data_encoding.ml
View File

@ -42,6 +42,7 @@ module Size = struct
let bool = 1
let int8 = 1
let uint8 = 1
let char = 1
let int16 = 2
let uint16 = 2
let int31 = 4
@ -847,7 +848,8 @@ let rec length : type x. x t -> x -> int = fun e ->
ofs + Size.uint8
let char v buf ofs =
uint8 (Char.code v) buf ofs
MBytes.set_char buf ofs v;
ofs + Size.char
let bool v buf ofs =
uint8 (if v then 255 else 0) buf ofs
@ -1012,9 +1014,8 @@ let rec length : type x. x t -> x -> int = fun e ->
let uint8 buf ofs _len =
ofs + Size.uint8, MBytes.get_uint8 buf ofs
let char buf ofs len =
let ofs, v = int8 buf ofs len in
ofs, Char.chr v
let char buf ofs _len =
ofs + Size.char, MBytes.get_char buf ofs
let bool buf ofs len =
let ofs, v = int8 buf ofs len in