1
2
3
4
5
6
7
8
9
10
external msync : ('a, 'b, 'c) Bigarray.Genarray.t -> unit = "caml_ba_msync"
external madvise_random : ('a, 'b, 'c) Bigarray.Genarray.t -> unit = "caml_madvise_random"
module Lwt = struct
open Lwt_unix
external msync_job : ('a, 'b, 'c) Bigarray.Genarray.t -> unit job = "caml_ba_msync_job"
let msync a = Lwt_unix.run_job (msync_job a)
end