let get_call_hyp kf_caller s l_post fct =
match WpStrategy.get_called_kf fct with
| Some kf ->
let spec = Kernel_function.get_spec kf in
let before_annots = WpStrategy.empty_acc in
let post_annots =
try get_called_post kf Normal
with NoFromForBhv -> raise (NoFromForCall s)
in
let exits_annots =
try get_called_post kf Exits
with NoFromForBhv -> raise (NoFromForCall s)
in
let after_annots = post_annots, exits_annots in
let after_annots =
add_call_assigns_hyp after_annots kf_caller s l_post spec
in
before_annots, after_annots
| None ->
Wp_parameters.warning
"call through function pointer not implemented yet: ignore called function properties.";
raise (NoFromForCall s)