let get_fct_post config tkind spec =
match get_behav config Kglobal spec.spec_behavior with
| None -> empty_acc
| Some b ->
let assumes = build_bhv_assumes b in
let add acc (tk, p) = match tkind, tk with
| Normal, Normal ->
add_prop config acc Agoal
(prepare_fct_post config b Normal assumes p)
| Exits, Exits ->
add_prop config acc Agoal
(prepare_fct_post config b Exits assumes p)
| Normal, (Breaks|Continues|Returns) ->
(Wp_parameters.warning
"Local abrupt terminaison property in function spec ignored :@, %a"
Cil.defaultCilPrinter#pPost_cond (tk,p);
acc)
| _ -> acc
in
List.fold_left add empty_acc b.b_post_cond