type range = {mutable rbegin : int;mutable rend : int;
}type t = {mutable reg : Reg.t;mutable ibegin : int;mutable iend : int;mutable ranges : range list;
}val all_intervals : unit -> t listval all_fixed_intervals : unit -> t listval overlap : t -> t -> boolval is_live : t -> int -> boolval remove_expired_ranges : t -> int -> unit