Buf_write: Fix BE.uint48 and LE.uint48.

Arguments to logical shift are provided in bits, not bytes.
ocaml-multicore · Jan 27, 2023 · de0a4bc · de0a4bc
1 parent 80f5352
commit de0a4bc
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib_eio/buf_write.ml b/lib_eio/buf_write.ml
@@ -282,7 +282,7 @@ module BE = struct
     writable_exn t;
     ensure_space t 6;
     Bigstringaf.unsafe_set_int32_be t.buffer t.write_pos
-      Int64.(to_int32 (shift_right_logical i 4));
+      Int64.(to_int32 (shift_right_logical i 32));
     Bigstringaf.unsafe_set_int16_be t.buffer (t.write_pos + 2)
       Int64.(to_int i);
     advance_pos t 6
@@ -325,7 +325,7 @@ module LE = struct
     Bigstringaf.unsafe_set_int16_le t.buffer t.write_pos
       Int64.(to_int i);
     Bigstringaf.unsafe_set_int32_le t.buffer (t.write_pos + 2)
-      Int64.(to_int32 (shift_right_logical i 2));
+      Int64.(to_int32 (shift_right_logical i 16));
     advance_pos t 6
 
   let uint64 t i =