Sourcetype exit_reason = | Normal| Exit_signal| Bad_link| Link_down of Pid.t| Exception of exn
Sourcetype state = | Runnable| Waiting_message| Waiting_io of {syscall : string;mode : [ `r | `rw | `w ];fd : Util.Fd.t;
}| Running| Exited of exit_reason| Finalized
Sourcetype process_flag = | Trap_exit of bool
Sourceexception Process_reviving_is_forbidden of t Sourceval is_waiting_io : t -> bool Sourceval has_empty_mailbox : t -> bool Sourceval mark_as_awaiting_io : t -> string -> [ `r | `rw | `w ] -> Util.Fd.t -> unit Sourceval mark_as_awaiting_message : t -> unit Sourceval mark_as_running : t -> unit Sourceval mark_as_runnable : t -> unit Sourceval mark_as_finalized : t -> unit Sourceval read_save_queue : t -> unit