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__