sig

  type stat = {
    minor_words : float;
    promoted_words : float;
    major_words : float;
    minor_collections : int;
    major_collections : int;
    heap_words : int;
    heap_chunks : int;
    live_words : int;
    live_blocks : int;
    free_words : int;
    free_blocks : int;
    largest_free : int;
    fragments : int;
    compactions : int;
    top_heap_words : int;
    stack_size : int;
    forced_major_collections : int;
  }
  type control = {
    minor_heap_size : int;
    major_heap_increment : int;
    space_overhead : int;
    verbose : int;
    max_overhead : int;
    stack_limit : int;
    allocation_policy : int;
    window_size : int;
    custom_major_ratio : int;
    custom_minor_ratio : int;
    custom_minor_max_size : int;
  }
  external stat : unit -> Gc.stat = "caml_gc_stat"
  external quick_stat : unit -> Gc.stat = "caml_gc_quick_stat"
  external counters : unit -> float * float * float = "caml_gc_counters"
  external minor_words : unit -> (float [@unboxed]) = "caml_gc_minor_words"
    "caml_gc_minor_words_unboxed"
  external get : unit -> Gc.control = "caml_gc_get"
  external set : Gc.control -> unit = "caml_gc_set"
  external minor : unit -> unit = "caml_gc_minor"
  external major_slice : int -> int = "caml_gc_major_slice"
  external major : unit -> unit = "caml_gc_major"
  external full_major : unit -> unit = "caml_gc_full_major"
  external compact : unit -> unit = "caml_gc_compaction"
  val print_stat : Stdlib.out_channel -> unit
  val allocated_bytes : unit -> float
  external get_minor_free : unit -> int = "caml_get_minor_free"
  val finalise : ('a -> unit) -> 'a -> unit
  val finalise_last : (unit -> unit) -> 'a -> unit
  val finalise_release : unit -> unit
  type alarm
  val create_alarm : (unit -> unit) -> Gc.alarm
  val delete_alarm : Gc.alarm -> unit
  val eventlog_pause : unit -> unit
  val eventlog_resume : unit -> unit
  module Memprof :
    sig
      type allocation_source = Normal | Marshal | Custom
      type allocation = private {
        n_samples : int;
        size : int;
        source : Gc.Memprof.allocation_source;
        callstack : Stdlib.Printexc.raw_backtrace;
      }
      type ('minor, 'major) tracker = {
        alloc_minor : Gc.Memprof.allocation -> 'minor option;
        alloc_major : Gc.Memprof.allocation -> 'major option;
        promote : 'minor -> 'major option;
        dealloc_minor : 'minor -> unit;
        dealloc_major : 'major -> unit;
      }
      val null_tracker : ('minor, 'major) Gc.Memprof.tracker
      val start :
        sampling_rate:float ->
        ?callstack_size:int -> ('minor, 'major) Gc.Memprof.tracker -> unit
      val stop : unit -> unit
    end
end