From 175c8e34ff4cf029559bd723678eea59a5f9a89d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?C=C3=A9dric=20Pasteur?= <cedric.pasteur@ens.fr>
Date: Wed, 5 Oct 2011 10:49:51 +0200
Subject: [PATCH] Fixed control fusion

---
 compiler/obc/control.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/obc/control.ml b/compiler/obc/control.ml
index f3cb7db..05825cb 100644
--- a/compiler/obc/control.ml
+++ b/compiler/obc/control.ml
@@ -101,7 +101,7 @@ let rec joinlist j l =
       | s1::s2::l ->
           match s1, s2 with
             | Acase(e1, h1),
-              Acase(e2, h2) when e1.e_desc = e2.e_desc ->
+              Acase(e2, h2) when Obc_compare.exp_compare e1 e2 = 0 ->
                 if is_modified_handlers j e1 h1 then
                   s1::(joinlist j (s2::l))
                 else