gazagnaire.org
upstream: https://github.com/janestreet/memtrace
1(* In non-OxCaml builds, this file has stub implementations of some OxCaml stdlib features *)
2
3type 'a or_null = Null | This of 'a
4
5module Obj = struct
6 include Obj
7
8 let magic_uncontended = Fun.id
9end
10
11module Hashtbl = struct
12 include Hashtbl
13 module Make_seeded_portable (H : SeededHashedType) = MakeSeeded (H)
14end