sig
type itv = Abstract_interp.Int.t * Abstract_interp.Int.t
exception Result_is_bottom
exception Result_is_same
exception Found_Top
module type S =
sig
type y
type widen_hint
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 tag : t -> int
val empty : t
val is_empty : t -> bool
val pretty_c_assert_typ :
string ->
Cil_types.typ -> (unit -> unit) -> Format.formatter -> t -> unit
val pretty_typ : Cil_types.typ option -> Format.formatter -> t -> unit
val pretty_debug : Format.formatter -> t -> unit
val reduce :
Ival.t -> size:Abstract_interp.Int.t -> Offsetmap.S.y -> t -> t
val is_included : t -> t -> bool
val is_included_exn : t -> t -> unit
val is_included_exn_generic :
(Offsetmap.S.y -> Offsetmap.S.y -> unit) -> t -> t -> unit
val join :
t -> t -> (Abstract_interp.Int.t * Abstract_interp.Int.t) list * t
val widen : Offsetmap.S.widen_hint -> t -> t -> t
val find_ival :
conflate_bottom:bool ->
validity:Base.validity ->
with_alarms:CilE.warn_mode ->
Ival.t -> t -> Abstract_interp.Int.t -> Offsetmap.S.y
val cardinal_zero_or_one : Base.validity -> t -> bool
val find_imprecise_entire_offsetmap :
validity:Base.validity -> t -> Offsetmap.S.y
val concerned_bindings_ival :
offsets:Ival.t ->
offsetmap:t ->
size:Abstract_interp.Int.t ->
Offsetmap.S.y list -> Offsetmap.S.y list
val update_ival :
with_alarms:CilE.warn_mode ->
validity:Base.validity ->
exact:bool ->
offsets:Ival.t ->
size:Abstract_interp.Int.t -> t -> Offsetmap.S.y -> t
val overwrite : t -> Offsetmap.S.y -> Origin.t -> t
val over_intersection : t -> t -> t
val from_cstring : Base.cstring -> t
val add_internal :
Offsetmap.itv ->
Abstract_interp.Int.t * Abstract_interp.Int.t * Offsetmap.S.y ->
t -> t
val add_whole : Offsetmap.itv -> Offsetmap.S.y -> t -> t
val remove_whole : Offsetmap.itv -> t -> t
val fold_whole :
size:Abstract_interp.Int.t ->
(Ival.t -> Abstract_interp.Int.t -> Offsetmap.S.y -> 'a -> 'a) ->
t -> 'a -> 'a
val fold_single_bindings :
size:Abstract_interp.Int.t ->
(Ival.t -> Abstract_interp.Int.t -> Offsetmap.S.y -> 'a -> 'a) ->
t -> 'a -> 'a
val fold_internal :
(Offsetmap.itv ->
Abstract_interp.Int.t * Abstract_interp.Int.t * Offsetmap.S.y ->
'a -> 'a) ->
t -> 'a -> 'a
val shift_ival : Ival.t -> t -> t option -> t option
val copy_paste :
t ->
Abstract_interp.Int.t ->
Abstract_interp.Int.t -> Abstract_interp.Int.t -> t -> t
val copy_merge :
t ->
Abstract_interp.Int.t ->
Abstract_interp.Int.t -> Abstract_interp.Int.t -> t -> t
val copy_offsmap :
t -> Abstract_interp.Int.t -> Abstract_interp.Int.t -> t
val copy_ival :
validity:Base.validity ->
with_alarms:CilE.warn_mode ->
Ival.t -> t -> Abstract_interp.Int.t -> t
val merge_by_itv : t -> t -> Abstract_value.Int_Intervals.t -> t
val shift : Abstract_interp.Int.t -> t -> t
val sized_zero : size_in_bits:Abstract_interp.Int.t -> t
val reciprocal_image :
t -> Base.t -> Abstract_value.Int_Intervals.t * Ival.t
val create_initial : v:Offsetmap.S.y -> modu:Abstract_interp.Int.t -> t
val reduce_by_int_intervals : t -> Abstract_value.Int_Intervals.t -> t
val top_stuff :
(Offsetmap.S.y -> bool) ->
(Offsetmap.S.y -> 'a * Offsetmap.S.y) ->
('a -> 'a -> 'a) -> 'a -> t -> 'a * t
val iter_contents :
(Offsetmap.S.y -> unit) -> t -> Abstract_interp.Int.t -> unit
val fold :
(Abstract_interp.Int.t * Abstract_interp.Int.t ->
Abstract_interp.Int.t * Abstract_interp.Int.t * Offsetmap.S.y ->
'a -> 'a) ->
t -> 'a -> 'a
val is : t -> Offsetmap.S.y -> bool
end
module Make :
functor (V : Lattice_With_Isotropy.S) ->
sig
type y = V.t
type widen_hint = V.widen_hint
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 tag : t -> int
val empty : t
val is_empty : t -> bool
val pretty_c_assert_typ :
string ->
Cil_types.typ -> (unit -> unit) -> Format.formatter -> t -> unit
val pretty_typ :
Cil_types.typ option -> Format.formatter -> t -> unit
val pretty_debug : Format.formatter -> t -> unit
val reduce : Ival.t -> size:Abstract_interp.Int.t -> y -> t -> t
val is_included : t -> t -> bool
val is_included_exn : t -> t -> unit
val is_included_exn_generic : (y -> y -> unit) -> t -> t -> unit
val join :
t -> t -> (Abstract_interp.Int.t * Abstract_interp.Int.t) list * t
val widen : widen_hint -> t -> t -> t
val find_ival :
conflate_bottom:bool ->
validity:Base.validity ->
with_alarms:CilE.warn_mode ->
Ival.t -> t -> Abstract_interp.Int.t -> y
val cardinal_zero_or_one : Base.validity -> t -> bool
val find_imprecise_entire_offsetmap :
validity:Base.validity -> t -> y
val concerned_bindings_ival :
offsets:Ival.t ->
offsetmap:t -> size:Abstract_interp.Int.t -> y list -> y list
val update_ival :
with_alarms:CilE.warn_mode ->
validity:Base.validity ->
exact:bool ->
offsets:Ival.t -> size:Abstract_interp.Int.t -> t -> y -> t
val overwrite : t -> y -> Origin.t -> t
val over_intersection : t -> t -> t
val from_cstring : Base.cstring -> t
val add_internal :
itv -> Abstract_interp.Int.t * Abstract_interp.Int.t * y -> t -> t
val add_whole : itv -> y -> t -> t
val remove_whole : itv -> t -> t
val fold_whole :
size:Abstract_interp.Int.t ->
(Ival.t -> Abstract_interp.Int.t -> y -> 'a -> 'a) -> t -> 'a -> 'a
val fold_single_bindings :
size:Abstract_interp.Int.t ->
(Ival.t -> Abstract_interp.Int.t -> y -> 'a -> 'a) -> t -> 'a -> 'a
val fold_internal :
(itv ->
Abstract_interp.Int.t * Abstract_interp.Int.t * y -> 'a -> 'a) ->
t -> 'a -> 'a
val shift_ival : Ival.t -> t -> t option -> t option
val copy_paste :
t ->
Abstract_interp.Int.t ->
Abstract_interp.Int.t -> Abstract_interp.Int.t -> t -> t
val copy_merge :
t ->
Abstract_interp.Int.t ->
Abstract_interp.Int.t -> Abstract_interp.Int.t -> t -> t
val copy_offsmap :
t -> Abstract_interp.Int.t -> Abstract_interp.Int.t -> t
val copy_ival :
validity:Base.validity ->
with_alarms:CilE.warn_mode ->
Ival.t -> t -> Abstract_interp.Int.t -> t
val merge_by_itv : t -> t -> Abstract_value.Int_Intervals.t -> t
val shift : Abstract_interp.Int.t -> t -> t
val sized_zero : size_in_bits:Abstract_interp.Int.t -> t
val reciprocal_image :
t -> Base.t -> Abstract_value.Int_Intervals.t * Ival.t
val create_initial : v:y -> modu:Abstract_interp.Int.t -> t
val reduce_by_int_intervals :
t -> Abstract_value.Int_Intervals.t -> t
val top_stuff :
(y -> bool) ->
(y -> 'a * y) -> ('a -> 'a -> 'a) -> 'a -> t -> 'a * t
val iter_contents : (y -> unit) -> t -> Abstract_interp.Int.t -> unit
val fold :
(Abstract_interp.Int.t * Abstract_interp.Int.t ->
Abstract_interp.Int.t * Abstract_interp.Int.t * y -> 'a -> 'a) ->
t -> 'a -> 'a
val is : t -> y -> bool
end
end