Module Gc.Memprof

type allocation_source =
  1. | Normal
  2. | Marshal
  3. | Custom
type allocation = private {
  1. n_samples : int;
  2. size : int;
  3. source : allocation_source;
  4. callstack : Printexc.raw_backtrace;
}
type (!'minor, !'major) tracker = {
  1. alloc_minor : allocation -> 'minor option;
  2. alloc_major : allocation -> 'major option;
  3. promote : 'minor -> 'major option;
  4. dealloc_minor : 'minor -> unit;
  5. dealloc_major : 'major -> unit;
}
val null_tracker : ('minor, 'major) tracker
val start : sampling_rate:float -> ?callstack_size:int -> ('minor, 'major) tracker -> unit
val stop : unit -> unit