Module Direct

val iter : t -> minor_words:((t, float) Fieldslib.Field.t -> t -> float -> unit) -> promoted_words:((t, float) Fieldslib.Field.t -> t -> float -> unit) -> major_words:((t, float) Fieldslib.Field.t -> t -> float -> unit) -> minor_collections:((t, int) Fieldslib.Field.t -> t -> int -> unit) -> major_collections:((t, int) Fieldslib.Field.t -> t -> int -> unit) -> heap_words:((t, int) Fieldslib.Field.t -> t -> int -> unit) -> heap_chunks:((t, int) Fieldslib.Field.t -> t -> int -> unit) -> live_words:((t, int) Fieldslib.Field.t -> t -> int -> unit) -> live_blocks:((t, int) Fieldslib.Field.t -> t -> int -> unit) -> free_words:((t, int) Fieldslib.Field.t -> t -> int -> unit) -> free_blocks:((t, int) Fieldslib.Field.t -> t -> int -> unit) -> largest_free:((t, int) Fieldslib.Field.t -> t -> int -> unit) -> fragments:((t, int) Fieldslib.Field.t -> t -> int -> unit) -> compactions:((t, int) Fieldslib.Field.t -> t -> int -> unit) -> top_heap_words:((t, int) Fieldslib.Field.t -> t -> int -> unit) -> stack_size:((t, int) Fieldslib.Field.t -> t -> int -> unit) -> unit

val fold : t -> init:'acc__ -> minor_words:('acc__ -> (t, float) Fieldslib.Field.t -> t -> float -> 'acc__) -> promoted_words:('acc__ -> (t, float) Fieldslib.Field.t -> t -> float -> 'acc__) -> major_words:('acc__ -> (t, float) Fieldslib.Field.t -> t -> float -> 'acc__) -> minor_collections:('acc__ -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__) -> major_collections:('acc__ -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__) -> heap_words:('acc__ -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__) -> heap_chunks:('acc__ -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__) -> live_words:('acc__ -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__) -> live_blocks:('acc__ -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__) -> free_words:('acc__ -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__) -> free_blocks:('acc__ -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__) -> largest_free:('acc__ -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__) -> fragments:('acc__ -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__) -> compactions:('acc__ -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__) -> top_heap_words:('acc__ -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__) -> stack_size:('acc__ -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__) -> 'acc__

val set_all_mutable_fields : t -> unit