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__
end