type t = G.ttype vertex = G.V.tmodule S : sig ... endval dominators_to_dom_tree : t -> ?pred:(t -> vertex -> vertex list) -> (vertex -> S.t) -> vertex -> S.ttype dom_graph = unit -> ttype dom_functions = {idom : idom; |
idoms : idoms; |
dom_tree : dom_tree; |
dominators : dominators; |
dom : dom; |
sdom : sdom; |
dom_frontier : dom_frontier; |
dom_graph : dom_graph; |
}val compute_all : G.t -> vertex -> dom_functions