$OpenBSD: patch-algo_dominators_ml,v 1.2 2017/09/18 06:06:22 jasper Exp $

Second hunk:
Adjust for ocamlgraph 1.8.6 API.

Index: algo/dominators.ml
--- algo/dominators.ml.orig
+++ algo/dominators.ml
@@ -23,7 +23,7 @@ let crtimer = Util.Timer.create "Algo.Dominators.cycle
 let sdtrtimer = Util.Timer.create "Algo.Dominators.sd_transitive_reduction"
 let domtrtimer = Util.Timer.create "Algo.Dominators.dom_transitive_reduction"
 
-include Util.Logging(struct let label = __FILE__ end) ;;
+include Util.Logging(struct let label = "algo/dominators.ml" end) ;;
 
 module G = Defaultgraphs.PackageGraph.G
 module O = Defaultgraphs.GraphOper(G)
@@ -99,7 +99,7 @@ let dominators_tarjan graph =
   ) graph;
 
   Util.Timer.start tjntimer;
-  let module Dom = Dominator.Make(G) in
+  let module Dom = Dominator.Make_graph(G) in
   let idom = Dom.compute_all graph start_pkg in
   let domgr = idom.Dom.dom_graph () in
   Util.Timer.stop tjntimer ();
