let get_all_direct_edges pdg node =
let co = false in
let edges = get_x_direct_edges ~co None pdg node in
let get_info e =
let k, z = G.edge_dpd e in
let n = edge_end co e in
(k, z, n)
in
List.map get_info edges