sig
type 'v truth =
[ `False | `True | `TrueReduced of 'v | `Unknown of 'v | `Unreachable ]
type bound_kind = Alarms.bound_kind = Lower_bound | Upper_bound
type bound = Int of Integer.t | Float of float * Cil_types.fkind
type pointer_comparison = Equality | Relation | Subtraction
module type S =
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 pretty_typ : Cil_types.typ option -> t Pretty_utils.formatter
val top : t
val is_included : t -> t -> bool
val join : t -> t -> t
val narrow : t -> t -> t Eval.or_bottom
val zero : t
val one : t
val top_int : t
val inject_int : Cil_types.typ -> Integer.t -> t
val assume_non_zero : t -> t Abstract_value.truth
val assume_bounded :
Abstract_value.bound_kind ->
Abstract_value.bound -> t -> t Abstract_value.truth
val assume_not_nan :
assume_finite:bool -> Cil_types.fkind -> t -> t Abstract_value.truth
val assume_pointer : t -> t Abstract_value.truth
val assume_comparable :
Abstract_value.pointer_comparison ->
t -> t -> (t * t) Abstract_value.truth
val constant : Cil_types.exp -> Cil_types.constant -> t
val forward_unop :
Cil_types.typ -> Cil_types.unop -> t -> t Eval.or_bottom
val forward_binop :
Cil_types.typ -> Cil_types.binop -> t -> t -> t Eval.or_bottom
val rewrap_integer : Eval_typ.integer_range -> t -> t
val forward_cast :
src_type:Eval_typ.scalar_typ ->
dst_type:Eval_typ.scalar_typ -> t -> t Eval.or_bottom
val backward_binop :
input_type:Cil_types.typ ->
resulting_type:Cil_types.typ ->
Cil_types.binop ->
left:t -> right:t -> result:t -> (t option * t option) Eval.or_bottom
val backward_unop :
typ_arg:Cil_types.typ ->
Cil_types.unop -> arg:t -> res:t -> t option Eval.or_bottom
val backward_cast :
src_typ:Cil_types.typ ->
dst_typ:Cil_types.typ ->
src_val:t -> dst_val:t -> t option Eval.or_bottom
val resolve_functions : t -> Kernel_function.t list Eval.or_top * bool
val replace_base : Base.substitution -> t -> t
end
type 'v key = 'v Structure.Key_Value.key
module type Leaf =
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 pretty_typ : Cil_types.typ option -> t Pretty_utils.formatter
val top : t
val is_included : t -> t -> bool
val join : t -> t -> t
val narrow : t -> t -> t Eval.or_bottom
val zero : t
val one : t
val top_int : t
val inject_int : Cil_types.typ -> Integer.t -> t
val assume_non_zero : t -> t truth
val assume_bounded : bound_kind -> bound -> t -> t truth
val assume_not_nan :
assume_finite:bool -> Cil_types.fkind -> t -> t truth
val assume_pointer : t -> t truth
val assume_comparable : pointer_comparison -> t -> t -> (t * t) truth
val constant : Cil_types.exp -> Cil_types.constant -> t
val forward_unop :
Cil_types.typ -> Cil_types.unop -> t -> t Eval.or_bottom
val forward_binop :
Cil_types.typ -> Cil_types.binop -> t -> t -> t Eval.or_bottom
val rewrap_integer : Eval_typ.integer_range -> t -> t
val forward_cast :
src_type:Eval_typ.scalar_typ ->
dst_type:Eval_typ.scalar_typ -> t -> t Eval.or_bottom
val backward_binop :
input_type:Cil_types.typ ->
resulting_type:Cil_types.typ ->
Cil_types.binop ->
left:t -> right:t -> result:t -> (t option * t option) Eval.or_bottom
val backward_unop :
typ_arg:Cil_types.typ ->
Cil_types.unop -> arg:t -> res:t -> t option Eval.or_bottom
val backward_cast :
src_typ:Cil_types.typ ->
dst_typ:Cil_types.typ ->
src_val:t -> dst_val:t -> t option Eval.or_bottom
val resolve_functions : t -> Kernel_function.t list Eval.or_top * bool
val replace_base : Base.substitution -> t -> t
val key : t Abstract_value.key
end
end