sig
module Make :
functor
(V : sig
type generic_widen_hint
type size_widen_hint = Integer.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
val join : t -> t -> t
val is_included : t -> t -> bool
val bottom : t
type widen_hint = size_widen_hint * generic_widen_hint
val widen : widen_hint -> t -> t -> t
val cardinal_zero_or_one : t -> bool
val pretty_typ :
Cil_types.typ option -> t Pretty_utils.formatter
val is_isotropic : t -> bool
val extract_bits :
topify:Origin.kind ->
start:Integer.t ->
stop:Integer.t -> size:Integer.t -> t -> bool * t
val little_endian_merge_bits :
topify:Origin.kind ->
conflate_bottom:bool ->
length:Integer.t -> value:t -> offset:Integer.t -> t -> t
val big_endian_merge_bits :
topify:Origin.kind ->
conflate_bottom:bool ->
total_length:int ->
length:Integer.t -> value:t -> offset:Integer.t -> t -> t
val merge_neutral_element : t
val topify_with_origin : Origin.t -> t -> t
val anisotropic_cast : size:Integer.t -> t -> t
end) ->
sig
type v = V.t
type widen_hint = V.generic_widen_hint
type alarm = bool
type t
val pretty_generic :
?typ:Cil_types.typ ->
?pretty_v:(Cil_types.typ option -> Format.formatter -> v -> unit) ->
?skip_v:(v -> bool) ->
?sep:string -> unit -> Format.formatter -> t -> unit
val create :
size:Abstract_interp.Int.t ->
v -> size_v:Abstract_interp.Int.t -> t
val create_isotropic : size:Abstract_interp.Int.t -> v -> t
val of_list :
((t -> v -> t) -> t -> 'l -> t) -> 'l -> Abstract_interp.Int.t -> t
val empty : t
val size_from_validity : Base.validity -> Integer.t Bottom.or_bottom
val iter :
(Abstract_interp.Int.t * Abstract_interp.Int.t ->
v * Abstract_interp.Int.t * Abstract_interp.Rel.t -> unit) ->
t -> unit
val fold :
(Abstract_interp.Int.t * Abstract_interp.Int.t ->
v * Abstract_interp.Int.t * Abstract_interp.Rel.t -> 'a -> 'a) ->
t -> 'a -> 'a
val fold_between :
?direction:[ `LTR | `RTL ] ->
entire:bool ->
Abstract_interp.Int.t * Abstract_interp.Int.t ->
(Abstract_interp.Int.t * Abstract_interp.Int.t ->
v * Abstract_interp.Int.t * Abstract_interp.Rel.t -> 'a -> 'a) ->
t -> 'a -> 'a
val iter_on_values : (v -> unit) -> t -> unit
val fold_on_values : (v -> 'a -> 'a) -> t -> 'a -> 'a
val map_on_values : (v -> v) -> t -> t
type map2_decide =
ReturnLeft
| ReturnRight
| ReturnConstant of v
| Recurse
val map2_on_values :
Hptmap_sig.cache_type ->
(t -> t -> map2_decide) -> (v -> v -> v) -> t -> t -> 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 join : t -> t -> t
val is_included : t -> t -> bool
val widen : widen_hint -> t -> t -> t
module Make_Narrow :
functor (X : sig val top : v val narrow : v -> v -> v end) ->
sig
val narrow : t -> t -> t
val narrow_reinterpret : t -> t -> t
end
val find :
validity:Base.validity ->
?conflate_bottom:bool ->
offsets:Ival.t -> size:Integer.t -> t -> bool * v
val find_imprecise : validity:Base.validity -> t -> v
val find_imprecise_everywhere : t -> v
val copy_slice :
validity:Base.validity ->
offsets:Ival.t -> size:Integer.t -> t -> alarm * t Bottom.or_bottom
val add :
?exact:bool ->
Abstract_interp.Int.t * Abstract_interp.Int.t ->
v * Abstract_interp.Int.t * Abstract_interp.Rel.t -> t -> t
val update :
?origin:Origin.t ->
validity:Base.validity ->
exact:bool ->
offsets:Ival.t ->
size:Abstract_interp.Int.t -> v -> t -> alarm * t Bottom.or_bottom
val update_under :
validity:Base.validity ->
exact:bool ->
offsets:Ival.t ->
size:Abstract_interp.Int.t -> v -> t -> alarm * t Bottom.or_bottom
val update_imprecise_everywhere :
validity:Base.validity -> Origin.t -> v -> t -> t Bottom.or_bottom
val paste_slice :
validity:Base.validity ->
exact:bool ->
from:t ->
size:Abstract_interp.Int.t ->
offsets:Ival.t -> t -> alarm * t Bottom.or_bottom
val cardinal_zero_or_one : t -> bool
val is_single_interval : t -> bool
val single_interval_value : t -> v option
val is_same_value : t -> v -> bool
val imprecise_write_msg : string ref
val clear_caches : unit -> unit
val pretty_debug : t Pretty_utils.formatter
end
module Int_Intervals :
sig
type itv = Abstract_interp.Int.t * Abstract_interp.Int.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
val join : t -> t -> t
val is_included : t -> t -> bool
val bottom : t
val top : t
val narrow : t -> t -> t
val link : t -> t -> t
val meet : t -> t -> t
val intersects : t -> t -> bool
val diff : t -> t -> t
val is_top : t -> bool
val inject_bounds : Abstract_interp.Int.t -> Abstract_interp.Int.t -> t
val inject_itv : itv -> t
val inject : itv list -> t
val from_ival_size : Ival.t -> Int_Base.t -> t
val from_ival_size_under : Ival.t -> Int_Base.t -> t
val project_set : t -> itv list
val project_singleton : t -> itv option
val fold : (itv -> 'a -> 'a) -> t -> 'a -> 'a
val iter : (itv -> unit) -> t -> unit
val pretty_typ : Cil_types.typ option -> t Pretty_utils.formatter
val range_covers_whole_type : Cil_types.typ -> t -> bool
val pretty_debug : t Pretty_utils.formatter
end
module Make_bitwise :
functor
(V : 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 join : t -> t -> t
val is_included : t -> t -> bool
val bottom : t
val narrow : t -> t -> t
val top : t
end) ->
sig
type v = 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 varname : t -> string
val mem_project : (Project_skeleton.t -> bool) -> t -> bool
val copy : t -> t
type intervals = Int_Intervals.t
val pretty : t Pretty_utils.formatter
val pretty_generic :
?typ:Cil_types.typ ->
?pretty_v:(Format.formatter -> v -> unit) ->
?skip_v:(v -> bool) ->
?sep:string -> unit -> Format.formatter -> t -> unit
val pretty_debug : t Pretty_utils.formatter
val join : t -> t -> t
val is_included : t -> t -> bool
val find : Int_Intervals_sig.itv -> t -> v
val find_iset : validity:Base.validity -> intervals -> t -> v
val add_binding_intervals :
validity:Base.validity ->
exact:bool -> intervals -> v -> t -> t Bottom.or_bottom
val add_binding_ival :
validity:Base.validity ->
exact:bool ->
Ival.t -> size:Int_Base.t -> v -> t -> t Bottom.or_bottom
val create : size:Integer.t -> v -> t
val empty : t
val size_from_validity : Base.validity -> Integer.t Bottom.or_bottom
val map : (v -> v) -> t -> t
type map2_decide =
ReturnLeft
| ReturnRight
| ReturnConstant of v
| Recurse
val map2 :
Hptmap_sig.cache_type ->
(t -> t -> map2_decide) -> (v -> v -> v) -> t -> t -> t
val fold : (intervals -> v -> 'a -> 'a) -> t -> 'a -> 'a
val fold_fuse_same : (intervals -> v -> 'a -> 'a) -> t -> 'a -> 'a
val fold_itv :
?direction:[ `LTR | `RTL ] ->
entire:bool ->
(Int_Intervals_sig.itv -> v -> 'a -> 'a) ->
Int_Intervals_sig.itv -> t -> 'a -> 'a
val fold_join_itvs :
cache:Hptmap_sig.cache_type ->
(Integer.t -> Integer.t -> v -> 'a) ->
('a -> 'a -> 'a) -> 'a -> intervals -> t -> 'a
val is_single_interval : t -> bool
val single_interval_value : t -> v option
val is_same_value : t -> v -> bool
val clear_caches : unit -> unit
val imprecise_write_msg : string ref
end
val set_plevel : int -> unit
val get_plevel : unit -> int
end