method vcode_annot annot =
let _, not_in = add_annot annot to_be_removed in
if not_in then (* not to be removed *) Cil.SkipChildren
else (* is to be removed *)
match annot.annot_content with
| AAssert (_, p, _) ->
R.debug ~level:2 "[rm_asserts] removing redundant %a@." Cil.d_code_annotation annot;
let status = Checked {emitter="scope"; valid = Maybe} in
let p = { p with content = Ptrue } in
let aassert = AAssert ([], p, {status = status}) in
let annot = { annot with annot_content = aassert } in
Cil.ChangeTo annot
| _ -> Cil.SkipChildren