module PO: Cfgpropid.Create
(
CV
)
type
t_env = W.t_env
val new_env : ?lvars:Cil_types.logic_var list -> Cil_types.kernel_function -> W.t_env
type
description = Cfgpropid.dnode
type
t_goal = {
}
type
t_prop = t_goal list
val pp_goal : Format.formatter -> string -> t_goal -> unit
val pp_descr : Format.formatter -> t_goal -> unit
val iter_description : (Wpo.warning -> unit) -> (Property.t -> unit) -> Cfgpropid.dnode -> unit
val pp_goalx : Format.formatter -> t_goal -> unit
val pretty : Format.formatter -> t_goal list -> unit
val empty : 'a list
val dnode_cpt : int Pervasives.ref
val make_goal : WpPropId.prop_id ->
(unit -> W.t_prop) -> Cfgpropid.dnode list -> t_goal
val merge : t_goal list ->
t_goal list -> t_goal list
val add_hyp : W.t_env ->
WpPropId.pred_info ->
t_goal list -> t_goal list
val build_prop_of_from : W.t_env ->
WpPropId.pred_info list ->
t_goal list -> t_goal list
val add_goal : W.t_env ->
WpPropId.pred_info ->
t_goal list -> t_goal list
val add_axiom : WpPropId.prop_id ->
string ->
Cil_types.logic_label list -> Cil_types.predicate Cil_types.named -> unit
val add_assigns : W.t_env ->
WpPropId.assigns_info ->
t_goal list -> t_goal list
val assigns_method : unit -> Mcfg.assigns_method
val init_value : W.t_env ->
Cil_types.lval ->
Cil_types.typ ->
Cil_types.exp option ->
t_goal list -> t_goal list
val init_range : W.t_env ->
Cil_types.lval ->
Cil_types.typ ->
int64 ->
int64 -> t_goal list -> t_goal list
val assign : W.t_env ->
Cil_types.lval ->
Cil_types.exp -> t_goal list -> t_goal list
val return : W.t_env ->
Cil_types.exp option ->
t_goal list -> t_goal list
val test : W.t_env ->
Cil_types.exp ->
t_goal list ->
t_goal list -> t_goal list
val switch : W.t_env ->
Cil_types.exp ->
(Cil_types.exp list * t_goal list) list ->
t_goal list -> t_goal list
merge the switch branches :
e
: : switch expression,
cases
: : a list of (case expression, wp for that case),
p_def
: : wp for the default branch.
Because each wp is a list, it is not so easy to merge.
So we decide to chose a simple, but not optimized, algorithm :
- we first collect a sorted list of all the ids in every branches,
- we then process each id but getting the wp for this id in each branch,
- and we then put back things together.
val call_goal_precond : W.t_env ->
Cil_types.stmt ->
Cil_types.kernel_function ->
Cil_types.exp list ->
pre:WpPropId.pred_info list ->
t_goal list -> t_goal list
val call : W.t_env ->
Cil_types.stmt ->
Cil_types.lval option ->
Cil_types.kernel_function ->
Cil_types.exp list ->
pre:WpPropId.pred_info list ->
post:WpPropId.pred_info list ->
pexit:WpPropId.pred_info list ->
assigns:Cil_types.identified_term Cil_types.assigns ->
p_post:t_goal list ->
p_exit:t_goal list -> t_goal list
val use_assigns : W.t_env ->
WpPropId.prop_id option ->
WpPropId.assigns_desc ->
t_goal list -> t_goal list
val label : W.t_env ->
Clabels.c_label ->
t_goal list -> t_goal list
val scope : W.t_env ->
Cil_types.varinfo list ->
Mcfg.scope -> t_goal list -> t_goal list
val close : W.t_env -> t_goal list -> t_goal list
val tag : string -> t_goal list -> t_goal list