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 = {mutable minor_heap_size : int;mutable major_heap_increment : int;mutable space_overhead : int;mutable verbose : int;mutable max_overhead : int;mutable stack_limit : int;mutable allocation_policy : int;window_size : int;custom_major_ratio : int;custom_minor_ratio : int;custom_minor_max_size : int;
}val quick_stat : unit -> statval counters : unit -> float * float * floatval minor_words : unit -> floatval major_slice : int -> intval full_major : unit -> unitval compact : unit -> unitval allocated_bytes : unit -> floatval get_minor_free : unit -> intval get_bucket : int -> intval get_credit : unit -> intval huge_fallback_count : unit -> intval finalise : ('a -> unit) -> 'a -> unitval finalise_last : (unit -> unit) -> 'a -> unitval finalise_release : unit -> unitval create_alarm : (unit -> unit) -> alarmval delete_alarm : alarm -> unitval eventlog_pause : unit -> unitval eventlog_resume : unit -> unit