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