Apply analogous fix to 1064f4d for little endian

andrenth · Jun 6, 2018 · e1366f2 · e1366f2
1 parent a5211c7
commit e1366f2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/bytes_conv.ml b/lib/bytes_conv.ml
@@ -58,7 +58,7 @@ module Make (I : IntSig) = struct
     let rec loop buffer i n =
       if i = (I.bits / 8) then ()
       else
-        let b = Char.chr (I.to_int (I.logand (I.of_int 0xFF) n)) in
+        let b = Char.unsafe_chr (I.to_int (I.logand (I.of_int 0xFF) n)) in
         let () = Bytes.set buffer (offset + i) b in
         let n' = I.shift_right_logical n 8 in
         loop buffer (i + 1) n'