Debuginfo
module Scoped_location : sig ... end
type item = private {
dinfo_file : string;
dinfo_line : int;
dinfo_char_start : int;
dinfo_char_end : int;
dinfo_start_bol : int;
dinfo_end_bol : int;
dinfo_end_line : int;
dinfo_scopes : Scoped_location.scopes;
}
type t = item list
type alloc_dbginfo = alloc_dbginfo_item list
val none : t
val is_none : t -> bool
val to_string : t -> string
val from_location : Scoped_location.t -> t
val to_location : t -> Location.t
val hash : t -> int
val print_compact : Format.formatter -> t -> unit