# Module Core_gc.Control.Fields.Direct

    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__

    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