sig
module M :
sig
type y = L.t
type t = Lmap_bitwise.Make_bitwise(L).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 = Lmap_bitwise.Make_bitwise(L).LOffset.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
val add_binding : t -> Locations.location -> y -> t
end
type t = {
map : Model.Make.State.M.t;
leaks : Model.Make.Leaks.t;
subst : Subst.t;
}
val pretty : Format.formatter -> Model.Make.State.t -> unit
val find_zone_status :
Model.Make.State.t -> Locations.Zone.t -> Model.Make.State.M.y
val find_loc_status :
Model.Make.State.t -> Locations.location -> Model.Make.State.M.y
val find_loc_status_with_deps :
?with_deps:bool ->
Model.Make.State.t -> Locations.location -> Model.Make.L.t1
type exp_status = Status of S.t | Location of Locations.location
val pretty_status : Format.formatter -> Model.Make.State.exp_status -> unit
val last_stmt : Cil_types.stmt Pervasives.ref
type call = { current_fun : Db_types.kernel_function; deps : S.t; }
val call_stack : Model.Make.State.call Stack.t
val reset : unit -> Model.Make.State.t
val lval_to_loc : Db.Value.state -> Cil_types.lval -> Locations.location
val status_of_deps : Db.Value.state -> Model.Make.State.t -> S.t
val join_deps : Db.Value.state -> Model.Make.State.t -> S.t -> S.t
val find_loc_or_status :
?with_deps:bool ->
Db.Value.state ->
Model.Make.State.t -> Cil_types.exp -> Model.Make.State.exp_status
val find_exp_status :
?with_deps:bool ->
Db.Value.state -> Model.Make.State.t -> Cil_types.exp -> Model.Make.L.t1
val is_included : Model.Make.State.t -> Model.Make.State.t -> bool
val combine :
old:Model.Make.State.t -> Model.Make.State.t -> Model.Make.State.t
val change_loc_status :
Db.Value.state ->
Model.Make.State.t ->
Locations.location -> Model.Make.State.exp_status -> Model.Make.State.t
val change_lval_status :
Db.Value.state ->
Model.Make.State.t ->
Cil_types.lval -> Model.Make.State.exp_status -> Model.Make.State.t
val change_lval_exp :
Db.Value.state ->
Model.Make.State.t ->
Cil_types.lval -> Cil_types.exp -> Model.Make.State.t
val clear_leaks : Model.Make.State.t -> Model.Make.State.t
val push_call :
Db.Value.state ->
Db_types.kernel_function ->
Cil_types.exp list -> Model.Make.State.t -> Model.Make.State.t
val pop_call :
Cil_types.kinstr ->
Cil_types.fundec ->
Cil_types.exp list ->
old:Model.Make.State.t -> Model.Make.State.t -> Model.Make.State.t
val print_results : Model.Make.State.t -> unit
val add_leak :
potential:bool ->
Model.Make.State.t ->
Cil_types.kinstr -> Cil_types.exp -> Model.Make.State.t
end