`sig
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__
val set_all_mutable_fields :
Core_gc.Control.t ->
minor_heap_size:int ->
major_heap_increment:int ->
space_overhead:int ->
verbose:int ->
max_overhead:int -> stack_limit:int -> allocation_policy:int -> unit
end`