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__0 -> minor_words:('acc__0 -> (t, float) Fieldslib.Field.t -> t -> float -> 'acc__1) -> promoted_words:('acc__1 -> (t, float) Fieldslib.Field.t -> t -> float -> 'acc__2) -> major_words:('acc__2 -> (t, float) Fieldslib.Field.t -> t -> float -> 'acc__3) -> minor_collections:('acc__3 -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__4) -> major_collections:('acc__4 -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__5) -> heap_words:('acc__5 -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__6) -> heap_chunks:('acc__6 -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__7) -> live_words:('acc__7 -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__8) -> live_blocks:('acc__8 -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__9) -> free_words:('acc__9 -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__10) -> free_blocks:('acc__10 -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__11) -> largest_free:('acc__11 -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__12) -> fragments:('acc__12 -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__13) -> compactions:('acc__13 -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__14) -> top_heap_words:('acc__14 -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__15) -> stack_size:('acc__15 -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__16) -> 'acc__16

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

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

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

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

val set_all_mutable_fields : t -> unit