let fold_bhv_post_cond ~warn f_normal f_exits acc b =
let add (p_acc, e_acc) ((termination_kind, pe) as e) =
match termination_kind with
| Normal -> f_normal p_acc pe, e_acc
| Exits -> p_acc, f_exits e_acc pe
| (Breaks|Continues|Returns) -> (* TODO *)
begin
if warn then
Wp_parameters.warning
"Abrupt statement termination property ignored:@, %a"
(Cil.defaultCilPrinter)#pPost_cond e;
p_acc, e_acc
end
in List.fold_left add acc b.b_post_cond