sig
module Location_Bytes :
sig
module M :
sig
type key = Base.t
type t
val iter :
(Base.t -> Ival.t -> unit) ->
Locations.Location_Bytes.M.t -> unit
val find :
Locations.Location_Bytes.M.key ->
Locations.Location_Bytes.M.t -> Ival.t
val fold :
(Base.t -> Ival.t -> 'a -> 'a) ->
Locations.Location_Bytes.M.t -> 'a -> 'a
end
type z =
Top of Base.SetLattice.t * Origin.t
| Map of Locations.Location_Bytes.M.t
exception Error_Top
exception Error_Bottom
type t = z
val ty : t Type.t
val name : string
val descr : t Descr.t
val packed_descr : Structural_descr.pack
val reprs : t list
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val pretty_code : Format.formatter -> t -> unit
val internal_pretty_code :
Type.precedence -> Format.formatter -> t -> unit
val pretty : Format.formatter -> t -> unit
val varname : t -> string
val mem_project : (Project_skeleton.t -> bool) -> t -> bool
val copy : t -> t
type widen_hint =
Base.SetLattice.widen_hint * (Base.t -> Ival.widen_hint)
val join : t -> t -> t
val link : t -> t -> t
val meet : t -> t -> t
val narrow : t -> t -> t
val bottom : t
val top : t
val is_included : t -> t -> bool
val is_included_exn : t -> t -> unit
val intersects : t -> t -> bool
val widen : widen_hint -> t -> t -> t
val singleton_zero : t
val singleton_one : t
val zero_or_one : t
val is_zero : t -> bool
val is_bottom : t -> bool
val top_int : t
val top_float : t
val top_single_precision_float : t
val inject : Base.t -> Ival.t -> t
val inject_ival : Ival.t -> t
val inject_float : Ival.F.t -> t
val add_or_bottom :
Base.t ->
Ival.t ->
Locations.Location_Bytes.M.t -> Locations.Location_Bytes.M.t
val diff : t -> t -> t
val diff_if_one : t -> t -> t
val shift : Ival.t -> t -> t
val topify_arith_origin : t -> t
val topify_misaligned_read_origin : t -> t
val topify_merge_origin : t -> t
val topify_leaf_origin : t -> t
val under_topify : t -> t
val topify_with_origin : Origin.t -> t -> t
val topify_with_origin_kind : Origin.kind -> t -> t
val inject_top_origin : Origin.t -> Base.SetLattice.O.t -> t
val top_with_origin : Origin.t -> t
val fold_bases : (Base.t -> 'a -> 'a) -> t -> 'a -> 'a
val fold_i : (Base.t -> Ival.t -> 'a -> 'a) -> t -> 'a -> 'a
val cached_fold :
cache:string * int ->
temporary:bool ->
f:(Base.t -> Ival.t -> 'a) ->
projection:(Base.t -> Ival.t) ->
joiner:('a -> 'a -> 'a) -> empty:'a -> t -> 'a
val cardinal_zero_or_one : t -> bool
val cardinal_less_than : t -> int -> int
val find_lonely_binding : t -> Base.t * Ival.t
val find_lonely_key : t -> Base.t * Ival.t
val fold_enum :
split_non_enumerable:int -> (t -> 'a -> 'a) -> t -> 'a -> 'a
val splitting_cardinal_less_than :
split_non_enumerable:int -> t -> int -> int
val find_or_bottom : Base.t -> Locations.Location_Bytes.M.t -> Ival.t
val split : Base.t -> t -> Ival.t * t
val get_bases : t -> Base.SetLattice.t
val contains_addresses_of_locals :
(Locations.Location_Bytes.M.key -> bool) -> t -> bool
val remove_escaping_locals :
(Locations.Location_Bytes.M.key -> bool) ->
t -> Base.SetLattice.t * t
val contains_addresses_of_any_locals : t -> bool
val iter_on_strings :
skip:Base.t option ->
(Base.t -> string -> int -> int -> unit) -> t -> unit
val partially_overlaps : size:Abstract_interp.Int.t -> t -> t -> bool
val is_relationable : t -> bool
val may_reach : Base.t -> t -> bool
val clear_caches : unit -> unit
end
module Location_Bits :
sig
module M :
sig
type key = Base.t
type t
val iter :
(Base.t -> Ival.t -> unit) ->
Locations.Location_Bytes.M.t -> unit
val find :
Locations.Location_Bytes.M.key ->
Locations.Location_Bytes.M.t -> Ival.t
val fold :
(Base.t -> Ival.t -> 'a -> 'a) ->
Locations.Location_Bytes.M.t -> 'a -> 'a
end
type z =
Top of Base.SetLattice.t * Origin.t
| Map of Locations.Location_Bytes.M.t
exception Error_Top
exception Error_Bottom
type t = z
val ty : t Type.t
val name : string
val descr : t Descr.t
val packed_descr : Structural_descr.pack
val reprs : t list
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val pretty_code : Format.formatter -> t -> unit
val internal_pretty_code :
Type.precedence -> Format.formatter -> t -> unit
val pretty : Format.formatter -> t -> unit
val varname : t -> string
val mem_project : (Project_skeleton.t -> bool) -> t -> bool
val copy : t -> t
type widen_hint =
Base.SetLattice.widen_hint * (Base.t -> Ival.widen_hint)
val join : t -> t -> t
val link : t -> t -> t
val meet : t -> t -> t
val narrow : t -> t -> t
val bottom : t
val top : t
val is_included : t -> t -> bool
val is_included_exn : t -> t -> unit
val intersects : t -> t -> bool
val widen : widen_hint -> t -> t -> t
val singleton_zero : t
val singleton_one : t
val zero_or_one : t
val is_zero : t -> bool
val is_bottom : t -> bool
val top_int : t
val top_float : t
val top_single_precision_float : t
val inject : Base.t -> Ival.t -> t
val inject_ival : Ival.t -> t
val inject_float : Ival.F.t -> t
val add_or_bottom :
Base.t ->
Ival.t ->
Locations.Location_Bytes.M.t -> Locations.Location_Bytes.M.t
val diff : t -> t -> t
val diff_if_one : t -> t -> t
val shift : Ival.t -> t -> t
val topify_arith_origin : t -> t
val topify_misaligned_read_origin : t -> t
val topify_merge_origin : t -> t
val topify_leaf_origin : t -> t
val under_topify : t -> t
val topify_with_origin : Origin.t -> t -> t
val topify_with_origin_kind : Origin.kind -> t -> t
val inject_top_origin : Origin.t -> Base.SetLattice.O.t -> t
val top_with_origin : Origin.t -> t
val fold_bases : (Base.t -> 'a -> 'a) -> t -> 'a -> 'a
val fold_i : (Base.t -> Ival.t -> 'a -> 'a) -> t -> 'a -> 'a
val cached_fold :
cache:string * int ->
temporary:bool ->
f:(Base.t -> Ival.t -> 'a) ->
projection:(Base.t -> Ival.t) ->
joiner:('a -> 'a -> 'a) -> empty:'a -> t -> 'a
val cardinal_zero_or_one : t -> bool
val cardinal_less_than : t -> int -> int
val find_lonely_binding : t -> Base.t * Ival.t
val find_lonely_key : t -> Base.t * Ival.t
val fold_enum :
split_non_enumerable:int -> (t -> 'a -> 'a) -> t -> 'a -> 'a
val splitting_cardinal_less_than :
split_non_enumerable:int -> t -> int -> int
val find_or_bottom : Base.t -> Locations.Location_Bytes.M.t -> Ival.t
val split : Base.t -> t -> Ival.t * t
val get_bases : t -> Base.SetLattice.t
val contains_addresses_of_locals :
(Locations.Location_Bytes.M.key -> bool) -> t -> bool
val remove_escaping_locals :
(Locations.Location_Bytes.M.key -> bool) ->
t -> Base.SetLattice.t * t
val contains_addresses_of_any_locals : t -> bool
val iter_on_strings :
skip:Base.t option ->
(Base.t -> string -> int -> int -> unit) -> t -> unit
val partially_overlaps : size:Abstract_interp.Int.t -> t -> t -> bool
val is_relationable : t -> bool
val may_reach : Base.t -> t -> bool
val clear_caches : unit -> unit
end
module Zone :
sig
type map_t
type tt =
Top of Base.SetLattice.t * Origin.t
| Map of Locations.Zone.map_t
type t = tt
val ty : t Type.t
val name : string
val descr : t Descr.t
val packed_descr : Structural_descr.pack
val reprs : t list
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val pretty_code : Format.formatter -> t -> unit
val internal_pretty_code :
Type.precedence -> Format.formatter -> t -> unit
val pretty : Format.formatter -> t -> unit
val varname : t -> string
val mem_project : (Project_skeleton.t -> bool) -> t -> bool
val copy : t -> t
val top : t
val bottom : t
val is_bottom : t -> bool
val inject : Base.t -> Lattice_Interval_Set.Int_Intervals.t -> t
val join : t -> t -> t
val link : t -> t -> t
val narrow : t -> t -> t
val meet : t -> t -> t
val diff : t -> t -> t
val diff_if_one : t -> t -> t
exception Error_Bottom
exception Error_Top
val map_i :
(Base.t -> Lattice_Interval_Set.Int_Intervals.t -> t) -> t -> t
val find_lonely_key :
t -> Base.t * Lattice_Interval_Set.Int_Intervals.t
val find_or_bottom :
Base.t ->
Locations.Zone.map_t -> Lattice_Interval_Set.Int_Intervals.t
val mem_base : Base.t -> t -> bool
val intersects : t -> t -> bool
val valid_intersects : t -> t -> bool
type widen_hint
val widen : Locations.Zone.widen_hint -> t -> t -> t
val is_included : t -> t -> bool
val is_included_exn : t -> t -> unit
val cardinal_zero_or_one : t -> bool
val cardinal_less_than : t -> int -> int
val filter_base : (Base.t -> bool) -> t -> t
val fold_bases : (Base.t -> 'a -> 'a) -> t -> 'a -> 'a
val fold_i :
(Base.t -> Lattice_Interval_Set.Int_Intervals.t -> 'a -> 'a) ->
t -> 'a -> 'a
val fold_topset_ok :
(Base.t -> Lattice_Interval_Set.Int_Intervals.t -> 'a -> 'a) ->
t -> 'a -> 'a
val cached_fold :
cache:string * int ->
temporary:bool ->
f:(Base.t -> Lattice_Interval_Set.Int_Intervals.t -> 'b) ->
projection:(Base.t -> Lattice_Interval_Set.Int_Intervals.t) ->
joiner:('b -> 'b -> 'b) -> empty:'b -> t -> 'b
val default :
Base.t -> Abstract_interp.Int.t -> Abstract_interp.Int.t -> t
val defaultall : Base.t -> t
val clear_caches : unit -> unit
end
type location = private {
loc : Locations.Location_Bits.t;
size : Int_Base.t;
}
module Location :
sig
type t = location
val ty : t Type.t
val name : string
val descr : t Descr.t
val packed_descr : Structural_descr.pack
val reprs : t list
val equal : t -> t -> bool
val compare : t -> t -> int
val hash : t -> int
val pretty_code : Format.formatter -> t -> unit
val internal_pretty_code :
Type.precedence -> Format.formatter -> t -> unit
val pretty : Format.formatter -> t -> unit
val varname : t -> string
val mem_project : (Project_skeleton.t -> bool) -> t -> bool
val copy : t -> t
end
val loc_bottom : Locations.location
val make_loc :
Locations.Location_Bits.t -> Int_Base.t -> Locations.location
val loc_equal : Locations.location -> Locations.location -> bool
val loc_size : Locations.location -> Int_Base.t
val is_valid : for_writing:bool -> Locations.location -> bool
val is_valid_or_function : Locations.location -> bool
val valid_part :
for_writing:bool -> Locations.location -> Locations.location
val invalid_part : Locations.location -> Locations.location
val cardinal_zero_or_one : Locations.location -> bool
val valid_cardinal_zero_or_one :
for_writing:bool -> Locations.location -> bool
val filter_base :
(Base.t -> bool) -> Locations.location -> Locations.location
val filter_loc :
Locations.location -> Locations.Zone.t -> Locations.location
val pretty : Format.formatter -> Locations.location -> unit
val pretty_english :
prefix:bool -> Format.formatter -> Locations.location -> unit
val loc_to_loc_without_size :
Locations.location -> Locations.Location_Bytes.t
val loc_bytes_to_loc_bits :
Locations.Location_Bytes.t -> Locations.Location_Bits.t
val loc_bits_to_loc_bytes :
Locations.Location_Bits.t -> Locations.Location_Bytes.t
val enumerate_bits : Locations.location -> Locations.Zone.t
val enumerate_valid_bits :
for_writing:bool -> Locations.location -> Locations.Zone.t
val zone_of_varinfo : Cil_types.varinfo -> Locations.Zone.t
val loc_of_varinfo : Cil_types.varinfo -> Locations.location
val loc_of_base : Base.t -> Locations.location
val loc_of_typoffset :
Base.t -> Cil_types.typ -> Cil_types.offset -> Locations.location
end