Revert to bap1.5
This commit is contained in:
parent
f1b84f1fbe
commit
3b2cad0dc4
|
@ -581,7 +581,7 @@ let process_blk
|
||||||
exception Inconsistent of BStd.tid
|
exception Inconsistent of BStd.tid
|
||||||
|
|
||||||
let get_entry_blk graph =
|
let get_entry_blk graph =
|
||||||
let entry = BStd.Seq.min_elt (CFG.nodes graph) ~compare:(fun x y ->
|
let entry = BStd.Seq.min_elt (CFG.nodes graph) ~cmp:(fun x y ->
|
||||||
let ax = opt_addr_of @@ CFG.Node.label x
|
let ax = opt_addr_of @@ CFG.Node.label x
|
||||||
and ay = opt_addr_of @@ CFG.Node.label y in
|
and ay = opt_addr_of @@ CFG.Node.label y in
|
||||||
match ax, ay with
|
match ax, ay with
|
||||||
|
|
Loading…
Reference in a new issue