let iter_edges_src_fun f proj =
let do_kf_calls kf =
let fi = M.get_kf_fi proj kf in
let doit (kf_caller,_) =
let fi_caller = M.get_kf_fi proj kf_caller in
f ((Src fi_caller, Src fi), None)
in List.iter doit (!Db.Value.callers kf)
in
Globals.Functions.iter do_kf_calls