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"