Module `Kv_hash.Freelist`

Bucket freelist

type freelist = { mutable dont_reuse : int list; mutable do_reuse : int list; min_free : int Stdlib.ref; }

module Make_1 : sig ... end

module Make_2 : Kv_hash__.Freelist_intf.FREELIST with type t = freelist

include Make_2

type t = freelist

val create : min_free:int -> t
val alloc : t -> int
val free : t -> int -> unit
val save : t -> fn:string -> unit
val load_no_promote : fn:string -> t
val load_and_promote_reuse : fn:string -> t
val reload_and_promote_reuse : t -> fn:string -> unit
val debug_to_string : t -> string: Debugging