let get_all_direct ~co pdg node = let edges = get_x_direct_edges ~co None pdg node in List.map (fun e -> (edge_end co e, DpdZone.dpd_zone (G.E.label e))) edges