diff --git a/src/lib_store/unix/cemented_block_store.ml b/src/lib_store/unix/cemented_block_store.ml index 95fb1aa26f2dfc03888b2dbbf7277bcaf48f818f..01d095def3de5244c942ca00cdfa2343636afbfb 100644 --- a/src/lib_store/unix/cemented_block_store.ml +++ b/src/lib_store/unix/cemented_block_store.ml @@ -1022,7 +1022,7 @@ let check_indexes_consistency ?(post_step = fun () -> Lwt.return_unit) let*! () = Lwt_utils_unix.read_bytes ~len:len_offset fd bytes in let offsets = Data_encoding.Binary.of_bytes_exn - Data_encoding.(Variable.array ~max_length:nb_blocks int31) + Data_encoding.(Variable.array ~max_length:nb_blocks int32) bytes in (* Cursor is now after the offset region *) @@ -1032,7 +1032,7 @@ let check_indexes_consistency ?(post_step = fun () -> Lwt.return_unit) let*! cur_offset = Lwt_unix.lseek fd 0 Unix.SEEK_CUR in let* () = fail_unless - Compare.Int.(cur_offset = offsets.(n)) + Compare.Int32.(Int32.of_int cur_offset = offsets.(n)) (Inconsistent_cemented_store (Bad_offset {level = n; cycle = Naming.file_path file}))