sig
exception Bitwise_cannot_copy
module type Location_map_bitwise =
sig
type y
type t
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
module LOffset :
sig
type t
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 find_intervs :
(Abstract_interp.Int.t ->
Abstract_interp.Int.t -> Lmap_bitwise.Location_map_bitwise.y) ->
Abstract_value.Int_Intervals.t ->
t -> Lmap_bitwise.Location_map_bitwise.y
val map :
(bool * Lmap_bitwise.Location_map_bitwise.y ->
bool * Lmap_bitwise.Location_map_bitwise.y) ->
t -> t
val fold :
(Abstract_value.Int_Intervals.t ->
bool * Lmap_bitwise.Location_map_bitwise.y -> 'a -> 'a) ->
t -> 'a -> 'a
val join : t -> t -> t
val pretty_with_type :
Cil_types.typ option -> Format.formatter -> t -> unit
val collapse : t -> Lmap_bitwise.Location_map_bitwise.y
val empty : t
val is_empty : t -> bool
val add_iset :
exact:bool ->
Abstract_value.Int_Intervals.t ->
Lmap_bitwise.Location_map_bitwise.y -> t -> t
val tag : t -> int
end
val empty : t
val join : t -> t -> t
val is_included : t -> t -> bool
val add_binding :
exact:bool ->
t -> Locations.Zone.t -> Lmap_bitwise.Location_map_bitwise.y -> t
val map_and_merge :
(Lmap_bitwise.Location_map_bitwise.y ->
Lmap_bitwise.Location_map_bitwise.y) ->
t -> t -> t
val filter_base : (Base.t -> bool) -> t -> t
val find : t -> Locations.Zone.t -> Lmap_bitwise.Location_map_bitwise.y
val find_base :
t -> Locations.Zone.t -> Lmap_bitwise.Location_map_bitwise.LOffset.t
exception Cannot_fold
val uninitialize_locals : Cil_types.varinfo list -> t -> t
val fold :
(Locations.Zone.t ->
bool * Lmap_bitwise.Location_map_bitwise.y -> 'a -> 'a) ->
t -> 'a -> 'a
val fold_base :
(Base.t -> Lmap_bitwise.Location_map_bitwise.LOffset.t -> 'a -> 'a) ->
t -> 'a -> 'a
val map2 :
((bool * Lmap_bitwise.Location_map_bitwise.y) option ->
(bool * Lmap_bitwise.Location_map_bitwise.y) option ->
bool * Lmap_bitwise.Location_map_bitwise.y) ->
t -> t -> t
val copy_paste :
f:(bool * Lmap_bitwise.Location_map_bitwise.y ->
bool * Lmap_bitwise.Location_map_bitwise.y) ->
Locations.location -> Locations.location -> t -> t
exception Zone_unchanged
val find_or_unchanged :
t -> Locations.Zone.t -> Lmap_bitwise.Location_map_bitwise.y
end
module type With_default =
sig
exception Error_Top
exception Error_Bottom
type t
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
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 cardinal_zero_or_one : t -> bool
val cardinal_less_than : t -> int -> int
val tag : t -> int
val default :
Base.t -> Abstract_interp.Int.t -> Abstract_interp.Int.t -> t
val defaultall : Base.t -> t
end
module Make_bitwise :
functor (V : With_default) ->
sig
type y = V.t
type t
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
module LOffset :
sig
type t
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 find_intervs :
(Abstract_interp.Int.t -> Abstract_interp.Int.t -> y) ->
Abstract_value.Int_Intervals.t -> t -> y
val map : (bool * y -> bool * y) -> t -> t
val fold :
(Abstract_value.Int_Intervals.t -> bool * y -> 'a -> 'a) ->
t -> 'a -> 'a
val join : t -> t -> t
val pretty_with_type :
Cil_types.typ option -> Format.formatter -> t -> unit
val collapse : t -> y
val empty : t
val is_empty : t -> bool
val add_iset :
exact:bool -> Abstract_value.Int_Intervals.t -> y -> t -> t
val tag : t -> int
end
val empty : t
val join : t -> t -> t
val is_included : t -> t -> bool
val add_binding : exact:bool -> t -> Locations.Zone.t -> y -> t
val map_and_merge : (y -> y) -> t -> t -> t
val filter_base : (Base.t -> bool) -> t -> t
val find : t -> Locations.Zone.t -> y
val find_base : t -> Locations.Zone.t -> LOffset.t
exception Cannot_fold
val uninitialize_locals : Cil_types.varinfo list -> t -> t
val fold :
(Locations.Zone.t -> bool * y -> 'a -> 'a) -> t -> 'a -> 'a
val fold_base : (Base.t -> LOffset.t -> 'a -> 'a) -> t -> 'a -> 'a
val map2 :
((bool * y) option -> (bool * y) option -> bool * y) -> t -> t -> t
val copy_paste :
f:(bool * y -> bool * y) ->
Locations.location -> Locations.location -> t -> t
exception Zone_unchanged
val find_or_unchanged : t -> Locations.Zone.t -> y
end
module From_Model :
sig
type y = Locations.Zone.t
type t
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
module LOffset :
sig
type t
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 find_intervs :
(Abstract_interp.Int.t -> Abstract_interp.Int.t -> y) ->
Abstract_value.Int_Intervals.t -> t -> y
val map : (bool * y -> bool * y) -> t -> t
val fold :
(Abstract_value.Int_Intervals.t -> bool * y -> 'a -> 'a) ->
t -> 'a -> 'a
val join : t -> t -> t
val pretty_with_type :
Cil_types.typ option -> Format.formatter -> t -> unit
val collapse : t -> y
val empty : t
val is_empty : t -> bool
val add_iset :
exact:bool -> Abstract_value.Int_Intervals.t -> y -> t -> t
val tag : t -> int
end
val empty : t
val join : t -> t -> t
val is_included : t -> t -> bool
val add_binding : exact:bool -> t -> Locations.Zone.t -> y -> t
val map_and_merge : (y -> y) -> t -> t -> t
val filter_base : (Base.t -> bool) -> t -> t
val find : t -> Locations.Zone.t -> y
val find_base : t -> Locations.Zone.t -> LOffset.t
exception Cannot_fold
val uninitialize_locals : Cil_types.varinfo list -> t -> t
val fold : (Locations.Zone.t -> bool * y -> 'a -> 'a) -> t -> 'a -> 'a
val fold_base : (Base.t -> LOffset.t -> 'a -> 'a) -> t -> 'a -> 'a
val map2 :
((bool * y) option -> (bool * y) option -> bool * y) -> t -> t -> t
val copy_paste :
f:(bool * y -> bool * y) ->
Locations.location -> Locations.location -> t -> t
exception Zone_unchanged
val find_or_unchanged : t -> Locations.Zone.t -> y
end
end