let ki_assigns_labels ki =
let l_begin, norm_labels = match ki with
| Kglobal ->
Logic_const.pre_label, NormAtLabels.labels_fct_assigns
| Kstmt s ->
let l_post = (* TODO *) None in
Cil2cfg.mk_logic_label s, NormAtLabels.labels_stmt_assigns s l_post
in l_begin, norm_labels