Module Caches.MixopCacheSource

Sourcemodule Table : sig ... end
Sourcetype slot = {
  1. mutable key : MixopEntry.t;
  2. mutable ref : bool;
}
Sourcetype !'a t = {
  1. table : ('a * int) Table.t;
  2. clock : slot array;
  3. occ : bool array;
  4. capacity : int;
  5. mutable count : int;
  6. mutable hand : int;
  7. mutable fill : int;
  8. mutable touched : int;
}
Sourceval create : size:int -> 'a t
Sourceval size : 'a t -> int
Sourceval empty : 'a t -> unit
Sourceval find : 'a t -> MixopEntry.t -> 'a option
Sourceval evict : 'a t -> int
Sourceval add : 'a t -> MixopEntry.t -> 'a -> unit