let mk_assign_post termination_kind (output, _) =
let out = match output with
| Nothing -> Wp_parameters.fatal "Nothing as output in an assigns clause ?"
| Location {Cil_types.it_content=lv} -> lv
in
match termination_kind, out.term_node with
| Exits, TLval (TResult _, _ ) -> None
| Normal, TLval (TVar{lv_name = "\\exit_status"},_) -> None
| _, _ ->
let linfos = get_pred_linfo out.term_type in
let p = Logic_const.papp (linfos, [], [out]) in
Some (Logic_const.new_predicate p)