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