let build_strategy_for_froms config =
let spec = Kernel_function.get_spec config.kf in
match config.cur_bhv with
| StmtBhv (_n, _s, _b) ->
Wp_parameters.not_yet_implemented "froms in stmt bhv"
| FunBhv b ->
let bhv = get_behav config Kglobal spec.spec_behavior in
match bhv with
| None ->
if b <> Cil.default_behavior_name then
Wp_parameters.warning
"function behavior '%s' not found" b; []
| Some bhv ->
let pre = add_fct_pre config empty_acc spec in
let add_assign_strategy (n, acc) assign =
let stg = mk_assign_strategy_for_froms
config bhv pre n assign in
(n+1, stg::acc)
in
let _, acc =
List.fold_left add_assign_strategy (1, []) bhv.b_assigns
in
acc