robur/cachet
4
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge pull request 'Fix how we align our map to pagesize and sub our bigarray' (#7) from fix-map into main

Browse source 
Reviewed-on: #7
This commit is contained in:
dinosaure 2025-01-07 13:14:49 +00:00
commit 8796b18ae7
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/cachet.ml
View file

@ -490,7 +490,7 @@ let map ({ fd; map; _ } as t) ~pos:logical_address logical_len =
(len + (1 lsl t.pagesize)) land lnot ((1 lsl t.pagesize) - 1) (len + (1 lsl t.pagesize)) land lnot ((1 lsl t.pagesize) - 1)
else len else len
in in
let off = logical_address land ((t.pagesize lsl 1) - 1) in let off = logical_address land ((1 lsl t.pagesize) - 1) in
if len <= 1 lsl t.pagesize then begin if len <= 1 lsl t.pagesize then begin
let hash = hash 0l (page lsl t.pagesize) land ((1 lsl t.cachesize) - 1) in let hash = hash 0l (page lsl t.pagesize) land ((1 lsl t.cachesize) - 1) in
match t.arr.(hash) with match t.arr.(hash) with