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