From d7edee0821eeff39d8f28f064d5e7a85fca6ad94 Mon Sep 17 00:00:00 2001 From: polwex Date: Mon, 6 Oct 2025 02:19:52 +0700 Subject: yeahyeah --- ocaml/lib/bitstream.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'ocaml/lib/bitstream.ml') diff --git a/ocaml/lib/bitstream.ml b/ocaml/lib/bitstream.ml index cfe094c..8c1ef5b 100644 --- a/ocaml/lib/bitstream.ml +++ b/ocaml/lib/bitstream.ml @@ -15,7 +15,7 @@ type reader = { (** Create a new bitstream writer *) let writer_create () = { - buf = ref (Bytes.create 1024); + buf = ref (Bytes.make 1024 '\x00'); bit_pos = 0; } @@ -27,7 +27,7 @@ let writer_ensure (w : writer) (bits_needed : int) : unit = if bytes_needed > (Bytes.length current_buf) then begin let old_buf : bytes = current_buf in let new_size : int = max (bytes_needed * 2) (Bytes.length old_buf * 2) in - let new_buf : bytes = Bytes.create new_size in + let new_buf : bytes = Bytes.make new_size '\x00' in Bytes.blit old_buf 0 new_buf 0 (Bytes.length old_buf); buf_ref := new_buf end -- cgit v1.2.3