let wp_call wenv annots stmt res fct args pn pe =
Wp_parameters.debug ~level:3 "[wp_call] %a@." !Ast_printer.d_exp fct;
let get_pre = annots.WpAnnot.called_preconditions in
let get_post = annots.WpAnnot.called_postconditions in
let get_assigns = annots.WpAnnot.called_assigns in
let get_exits = annots.WpAnnot.called_exit_postconditions in
let pn =
W.call_normal wenv ~get_pre ~get_post ~get_assigns stmt res fct args pn in
let pe =
W.call_exit wenv ~get_pre ~get_assigns ~get_exits stmt fct args pe in
W.merge pn pe