let get_annots bhv_opt cfg =
match bhv_opt with
| None -> WpAnnot.get_all_annots cfg
| Some bhv -> match WpAnnot.get_behavior_annots bhv cfg with
| Some annots -> [annots]
| None -> Wp_parameters.warning "No '%s' behavior in %a@."
bhv Kernel_function.pretty_name (Cil2cfg.cfg_kf cfg); []