module Direct: sig
.. end
val iter : Core_gc.Control.t ->
minor_heap_size:((Core_gc.Control.t, int) Fieldslib.Field.t ->
Core_gc.Control.t -> int -> unit) ->
major_heap_increment:((Core_gc.Control.t, int) Fieldslib.Field.t ->
Core_gc.Control.t -> int -> unit) ->
space_overhead:((Core_gc.Control.t, int) Fieldslib.Field.t ->
Core_gc.Control.t -> int -> unit) ->
verbose:((Core_gc.Control.t, int) Fieldslib.Field.t ->
Core_gc.Control.t -> int -> unit) ->
max_overhead:((Core_gc.Control.t, int) Fieldslib.Field.t ->
Core_gc.Control.t -> int -> unit) ->
stack_limit:((Core_gc.Control.t, int) Fieldslib.Field.t ->
Core_gc.Control.t -> int -> unit) ->
allocation_policy:((Core_gc.Control.t, int) Fieldslib.Field.t ->
Core_gc.Control.t -> int -> unit) ->
unit
val fold : Core_gc.Control.t ->
init:'acc__ ->
minor_heap_size:('acc__ ->
(Core_gc.Control.t, int) Fieldslib.Field.t ->
Core_gc.Control.t -> int -> 'acc__) ->
major_heap_increment:('acc__ ->
(Core_gc.Control.t, int) Fieldslib.Field.t ->
Core_gc.Control.t -> int -> 'acc__) ->
space_overhead:('acc__ ->
(Core_gc.Control.t, int) Fieldslib.Field.t ->
Core_gc.Control.t -> int -> 'acc__) ->
verbose:('acc__ ->
(Core_gc.Control.t, int) Fieldslib.Field.t ->
Core_gc.Control.t -> int -> 'acc__) ->
max_overhead:('acc__ ->
(Core_gc.Control.t, int) Fieldslib.Field.t ->
Core_gc.Control.t -> int -> 'acc__) ->
stack_limit:('acc__ ->
(Core_gc.Control.t, int) Fieldslib.Field.t ->
Core_gc.Control.t -> int -> 'acc__) ->
allocation_policy:('acc__ ->
(Core_gc.Control.t, int) Fieldslib.Field.t ->
Core_gc.Control.t -> int -> 'acc__) ->
'acc__