From 3b2cad0dc468088a1f53faa244175d3ed26f57b6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Th=C3=A9ophile=20Bastian?= <contact@tobast.fr>
Date: Tue, 11 Jun 2019 03:21:56 +0200
Subject: [PATCH] Revert to bap1.5

---
 DwarfSynth/Simplest.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/DwarfSynth/Simplest.ml b/DwarfSynth/Simplest.ml
index 59607fb..138f8d4 100644
--- a/DwarfSynth/Simplest.ml
+++ b/DwarfSynth/Simplest.ml
@@ -581,7 +581,7 @@ let process_blk
 exception Inconsistent of BStd.tid
 
 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
       and ay = opt_addr_of @@ CFG.Node.label y in
       match ax, ay with