Anri/dns-toy
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

arg name

Browse source
This commit is contained in:
Mylloon 2023-06-13 02:37:33 +02:00
parent e15431d04e
commit 1e41cd5dde
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/utils.ml
View file

@ -27,8 +27,8 @@ let new_buffer size list =
buffer buffer
;; ;;
let unpack_short_be reader offset = let unpack_short_be data offset =
let msb = int_of_char (Bytes.get reader offset) in let msb = int_of_char (Bytes.get data offset) in
let lsb = int_of_char (Bytes.get reader (offset + 1)) in let lsb = int_of_char (Bytes.get data (offset + 1)) in
(msb lsl 8) + lsb (msb lsl 8) + lsb
;; ;;