Merge pull request 'Fix Cachet_lwt.next' (#8) from fix-lwt into main

Reviewed-on: #8
This commit is contained in:
dinosaure 2025-01-07 17:36:14 +00:00
commit 977e28a036

View file

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