let get_loop_assigns asked_bh e =
let vloop = CFG.E.dst e in
match !vloop with
| Cil2cfg.Vloop (_, s) ->
let assigns = Annotations.get_filter Logic_utils.is_assigns s in
let add_assign acc asgn = match asgn with
| Before ( User ({ annot_content = AAssigns (b_list, a) })) ->
if test_behav asked_bh b_list then
let labels = NormAtLabels.labels_loop_assigns s in
add_assigns "loop assigns" labels acc a
else acc
| _ -> assert false
in List.fold_left add_assign [] assigns
| _ -> Wp_parameters.abort "get_loop_assigns but not a loop"