From 21891b8746983bdb794767dde753a76c9d4e7732 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?C=C3=A9dric=20Pasteur?= <cedric.pasteur@m4x.org>
Date: Wed, 23 Jun 2010 11:32:30 +0200
Subject: [PATCH] Fixed bug in causal

---
 compiler/heptagon/analysis/causal.ml | 1 -
 1 file changed, 1 deletion(-)

diff --git a/compiler/heptagon/analysis/causal.ml b/compiler/heptagon/analysis/causal.ml
index 521051f..1216ae7 100644
--- a/compiler/heptagon/analysis/causal.ml
+++ b/compiler/heptagon/analysis/causal.ml
@@ -181,7 +181,6 @@ let build ac =
 
     let rec add_dependence g = function
         | Aread(n) -> attach g n
-	      | Atuple l -> List.iter (add_dependence g) l
 	      | _ -> ()
     in