type direct_call_point = | To_ocaml of ocaml_node Direct_call_point.t |
| To_foreign of foreign_node Direct_call_point.t |
| To_uninstrumented of uninstrumented_node Direct_call_point.t |
type classification = | Allocation of Allocation_point.t |
| Direct_call of direct_call_point |
| Indirect_call of Indirect_call_point.t |
val classify : t -> classification