module Async_gc:sig..end
Core.Gc.include Core_kernel.Gc
val add_finalizer : 'a Core.Std.Heap_block.t -> ('a Core.Std.Heap_block.t -> unit) -> unitadd_finalizer b f ensures that f runs after b becomes unreachable. f b will
run in its own async job. If f raises, the unhandled exception will be raised to
the monitor that called add_finalizer b f.
The OCaml runtime only supports finalizers on heap blocks, hence add_finalizer
requires b : _ Heap_block.t. add_finalizer_exn b f is like add_finalizer, but
will raise if b is not a heap block.
The runtime essentially maintains a set of finalizer pairs:
'a Heap_block.t * ('a Heap_block.t -> unit)
Each call to add_finalizer adds a new pair to the set. It is allowed for many pairs
to have the same heap block, the same function, or both. Each pair is a distinct
element of the set.
After a garbage collection determines that a heap block b is unreachable, it removes
from the set of finalizers all finalizer pairs (b, f) whose block is b, and then
and runs f b for all such pairs. Thus, a finalizer registered with add_finalizer
will run at most once.
In a finalizer pair (b, f), it is a mistake for the closure of f to reference
(directly or indirectly) b -- f should only access b via its argument.
Referring to b in any other way will cause b to be kept alive forever, since f
itself is a root of garbage collection, and can itself only be collected after the
pair (b, f) is removed from the set of finalizers.
The f function can use all features of OCaml and async, since it runs as an ordinary
async job. f can even make make b reachable again. It can even call
add_finalizer on b or other values to register other finalizer functions.
val add_finalizer_exn : 'a -> ('a -> unit) -> unit