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