sig
exception Bitwise_cannot_copy
module type Location_map_bitwise =
sig
type y
type t
module Datatype :
sig
type t = t
val rehash : t -> t
val descr : Unmarshal.t
val copy : t -> t
val name : string
val register_comparable :
?compare:(t -> t -> int) ->
?equal:(t -> t -> bool) ->
?hash:(t -> int) -> ?physical_hash:(t -> int) -> unit -> unit
val is_comparable_set : unit -> bool
val hash : t -> int
val physical_hash : t -> int
val equal : t -> t -> bool
val compare : t -> t -> int
val contain_project : (Project.project -> t -> bool) option ref
end
module LOffset :
sig
type t
val find_intervs :
(Abstract_interp.Int.t ->
Abstract_interp.Int.t -> Lmap_bitwise.Location_map_bitwise.y) ->
Abstract_value.Int_Intervals.t ->
Lmap_bitwise.Location_map_bitwise.LOffset.t ->
Lmap_bitwise.Location_map_bitwise.y
val map :
(bool * Lmap_bitwise.Location_map_bitwise.y ->
bool * Lmap_bitwise.Location_map_bitwise.y) ->
Lmap_bitwise.Location_map_bitwise.LOffset.t ->
Lmap_bitwise.Location_map_bitwise.LOffset.t
val fold :
(Abstract_value.Int_Intervals.t ->
bool * Lmap_bitwise.Location_map_bitwise.y -> 'a -> 'a) ->
Lmap_bitwise.Location_map_bitwise.LOffset.t -> 'a -> 'a
val join :
Lmap_bitwise.Location_map_bitwise.LOffset.t ->
Lmap_bitwise.Location_map_bitwise.LOffset.t ->
Lmap_bitwise.Location_map_bitwise.LOffset.t
val pretty :
Format.formatter ->
Lmap_bitwise.Location_map_bitwise.LOffset.t -> unit
val pretty_with_type :
Cil_types.typ option ->
Format.formatter ->
Lmap_bitwise.Location_map_bitwise.LOffset.t -> unit
val collapse :
Lmap_bitwise.Location_map_bitwise.LOffset.t ->
Lmap_bitwise.Location_map_bitwise.y
val empty : Lmap_bitwise.Location_map_bitwise.LOffset.t
val is_empty : Lmap_bitwise.Location_map_bitwise.LOffset.t -> bool
val add_iset :
exact:bool ->
Abstract_value.Int_Intervals.t ->
Lmap_bitwise.Location_map_bitwise.y ->
Lmap_bitwise.Location_map_bitwise.LOffset.t ->
Lmap_bitwise.Location_map_bitwise.LOffset.t
val equal :
Lmap_bitwise.Location_map_bitwise.LOffset.t ->
Lmap_bitwise.Location_map_bitwise.LOffset.t -> bool
val tag : Lmap_bitwise.Location_map_bitwise.LOffset.t -> int
module Datatype :
sig
type t = t
val rehash : t -> t
val descr : Unmarshal.t
val copy : t -> t
val name : string
val register_comparable :
?compare:(t -> t -> int) ->
?equal:(t -> t -> bool) ->
?hash:(t -> int) -> ?physical_hash:(t -> int) -> unit -> unit
val is_comparable_set : unit -> bool
val hash : t -> int
val physical_hash : t -> int
val equal : t -> t -> bool
val compare : t -> t -> int
val contain_project : (Project.project -> t -> bool) option ref
end
end
val pretty :
Format.formatter -> Lmap_bitwise.Location_map_bitwise.t -> unit
val empty : Lmap_bitwise.Location_map_bitwise.t
val join :
Lmap_bitwise.Location_map_bitwise.t ->
Lmap_bitwise.Location_map_bitwise.t ->
Lmap_bitwise.Location_map_bitwise.t
val equal :
Lmap_bitwise.Location_map_bitwise.t ->
Lmap_bitwise.Location_map_bitwise.t -> bool
val hash : Lmap_bitwise.Location_map_bitwise.t -> int
val is_included :
Lmap_bitwise.Location_map_bitwise.t ->
Lmap_bitwise.Location_map_bitwise.t -> bool
val add_binding :
exact:bool ->
Lmap_bitwise.Location_map_bitwise.t ->
Locations.Zone.t ->
Lmap_bitwise.Location_map_bitwise.y ->
Lmap_bitwise.Location_map_bitwise.t
val map_and_merge :
(Lmap_bitwise.Location_map_bitwise.y ->
Lmap_bitwise.Location_map_bitwise.y) ->
Lmap_bitwise.Location_map_bitwise.t ->
Lmap_bitwise.Location_map_bitwise.t ->
Lmap_bitwise.Location_map_bitwise.t
val filter_base :
(Base.t -> bool) ->
Lmap_bitwise.Location_map_bitwise.t ->
Lmap_bitwise.Location_map_bitwise.t
val find :
Lmap_bitwise.Location_map_bitwise.t ->
Locations.Zone.t -> Lmap_bitwise.Location_map_bitwise.y
val find_base :
Lmap_bitwise.Location_map_bitwise.t ->
Locations.Zone.t -> Lmap_bitwise.Location_map_bitwise.LOffset.t
exception Cannot_fold
val uninitialize_locals :
Cil_types.varinfo list ->
Lmap_bitwise.Location_map_bitwise.t ->
Lmap_bitwise.Location_map_bitwise.t
val fold :
(Locations.Zone.t ->
bool * Lmap_bitwise.Location_map_bitwise.y -> 'a -> 'a) ->
Lmap_bitwise.Location_map_bitwise.t -> 'a -> 'a
val fold_base :
(Base.t -> Lmap_bitwise.Location_map_bitwise.LOffset.t -> 'a -> 'a) ->
Lmap_bitwise.Location_map_bitwise.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) ->
Lmap_bitwise.Location_map_bitwise.t ->
Lmap_bitwise.Location_map_bitwise.t ->
Lmap_bitwise.Location_map_bitwise.t
val copy_paste :
f:(bool * Lmap_bitwise.Location_map_bitwise.y ->
bool * Lmap_bitwise.Location_map_bitwise.y) ->
Locations.location ->
Locations.location ->
Lmap_bitwise.Location_map_bitwise.t ->
Lmap_bitwise.Location_map_bitwise.t
exception Zone_unchanged
val find_or_unchanged :
Lmap_bitwise.Location_map_bitwise.t ->
Locations.Zone.t -> Lmap_bitwise.Location_map_bitwise.y
end
module type With_default =
sig
exception Error_Top
exception Error_Bottom
type t
type widen_hint
val equal : t -> t -> bool
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 pretty : Format.formatter -> t -> unit
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
module Datatype :
sig
type t = t
val rehash : t -> t
val descr : Unmarshal.t
val copy : t -> t
val name : string
val register_comparable :
?compare:(t -> t -> int) ->
?equal:(t -> t -> bool) ->
?hash:(t -> int) -> ?physical_hash:(t -> int) -> unit -> unit
val is_comparable_set : unit -> bool
val hash : t -> int
val physical_hash : t -> int
val equal : t -> t -> bool
val compare : t -> t -> int
val contain_project : (Project.project -> t -> bool) option ref
end
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
module Datatype :
sig
type t = t
val rehash : t -> t
val descr : Unmarshal.t
val copy : t -> t
val name : string
val register_comparable :
?compare:(t -> t -> int) ->
?equal:(t -> t -> bool) ->
?hash:(t -> int) -> ?physical_hash:(t -> int) -> unit -> unit
val is_comparable_set : unit -> bool
val hash : t -> int
val physical_hash : t -> int
val equal : t -> t -> bool
val compare : t -> t -> int
val contain_project : (Project.project -> t -> bool) option ref
end
module LOffset :
sig
type 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 : Format.formatter -> t -> unit
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 equal : t -> t -> bool
val tag : t -> int
module Datatype :
sig
type t = t
val rehash : t -> t
val descr : Unmarshal.t
val copy : t -> t
val name : string
val register_comparable :
?compare:(t -> t -> int) ->
?equal:(t -> t -> bool) ->
?hash:(t -> int) ->
?physical_hash:(t -> int) -> unit -> unit
val is_comparable_set : unit -> bool
val hash : t -> int
val physical_hash : t -> int
val equal : t -> t -> bool
val compare : t -> t -> int
val contain_project :
(Project.project -> t -> bool) option ref
end
end
val pretty : Format.formatter -> t -> unit
val empty : t
val join : t -> t -> t
val equal : t -> t -> bool
val hash : t -> int
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
module Datatype :
sig
type t = t
val rehash : t -> t
val descr : Unmarshal.t
val copy : t -> t
val name : string
val register_comparable :
?compare:(t -> t -> int) ->
?equal:(t -> t -> bool) ->
?hash:(t -> int) -> ?physical_hash:(t -> int) -> unit -> unit
val is_comparable_set : unit -> bool
val hash : t -> int
val physical_hash : t -> int
val equal : t -> t -> bool
val compare : t -> t -> int
val contain_project : (Project.project -> t -> bool) option ref
end
module LOffset :
sig
type 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 : Format.formatter -> t -> unit
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 equal : t -> t -> bool
val tag : t -> int
module Datatype :
sig
type t = t
val rehash : t -> t
val descr : Unmarshal.t
val copy : t -> t
val name : string
val register_comparable :
?compare:(t -> t -> int) ->
?equal:(t -> t -> bool) ->
?hash:(t -> int) -> ?physical_hash:(t -> int) -> unit -> unit
val is_comparable_set : unit -> bool
val hash : t -> int
val physical_hash : t -> int
val equal : t -> t -> bool
val compare : t -> t -> int
val contain_project : (Project.project -> t -> bool) option ref
end
end
val pretty : Format.formatter -> t -> unit
val empty : t
val join : t -> t -> t
val equal : t -> t -> bool
val hash : t -> int
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