let get_stmt_node env s = match s.skind with
| Instr (Call (res, fct, args, _)) ->
get_node env (VcallIn (s, res, fct, args))
| Block b -> get_node env (VblkIn (Bstmt s,b))
| UnspecifiedSequence seq ->
let b = Cil.block_from_unspecified_sequence seq in
get_node env (VblkIn (Bstmt s,b))
| If (e, _, _, _) -> get_node env (Vtest (true, s, e))
| Loop _ | Break _ | Continue _ | Goto _
| Instr _ | Return _ -> get_node env (Vstmt s)
| Switch (e, _, _, _) -> get_node env (Vswitch (s, e))
| TryExcept _ | TryFinally _ ->
Wp_parameters.not_yet_implemented "[cfg] exception handling"