let init_conflicts univ =
let conflict_pairs = Hashtbl.create 1023 in
let conflicts_packages = Hashtbl.create 1023 in
Cudf.iteri_packages (fun i p ->
List.iter (fun n ->
let pair = (min n i, max n i) in
if n <> i && not (Hashtbl.mem conflict_pairs pair) then begin
Hashtbl.add conflict_pairs pair ();
add_to_package_list conflicts_packages i n;
add_to_package_list conflicts_packages n i
end
)
(resolve_vpkgs_int univ p.Cudf.conflicts)
) univ;
conflicts_packages