Source file `limits_mp_impl.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
# 1 "coq/limits_mp_impl.fake.ml"
(* We'd like to move this code to Lang, but it is still too specific *)
module Token = struct
  type t = unit

  let create () = ()
  let set () = ()
  let is_set () = false
end

let start () = ()
let limit ~token:_ ~f x = Result.Ok (f x)
let name () = "memprof-limits (fake)"
let available = false