Fix Cachet_lwt.next #8

Merged
dinosaure merged 1 commit from fix-lwt into main 2025-01-07 17:36:15 +00:00

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)