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