let get_called_kf call_stmt = match call_stmt.skind with
| Instr (Call (_, funcexp,_,_)) ->
let _funcexp_dpds, called_functions =
!Db.Value.expr_to_kernel_function
~with_alarms:CilE.warn_none_mode
~deps:(Some Locations.Zone.bottom)
(Kstmt call_stmt)
funcexp
in
(match Kernel_function.Hptset.contains_single_elt called_functions with
| Some kf -> kf
| _ -> raise SlicingTypes.PtrCallExpr)
| _ -> invalid_arg "Not a call statement !"