Fix Cachet_lwt.next

This commit is contained in:
Calascibetta Romain 2025-01-07 18:35:21 +01:00
parent 8796b18ae7
commit df13234fe1

View file

@ -94,4 +94,4 @@ let get_int64_be t logical_address =
let next t slice =
let pagesize = Cachet.pagesize t in
load t (slice.Cachet.offset + (1 lsl pagesize))
load t (slice.Cachet.offset + pagesize)