From b360e56893d79f99a4b72c765e4cb0c52eb2886c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?C=C3=A9dric=20Pasteur?= Date: Wed, 23 Jun 2010 09:25:47 +0200 Subject: [PATCH] Unbreak Graph --- compiler/utilities/graph.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/utilities/graph.ml b/compiler/utilities/graph.ml index 66608b0..71fb817 100644 --- a/compiler/utilities/graph.ml +++ b/compiler/utilities/graph.ml @@ -32,7 +32,7 @@ let make c = { g_containt = c; g_tag = new_tag (); g_visited = false; g_mark = -1; g_depends_on = []; g_depends_by = [] } let add_depends node1 node2 = - if not (node1.g_tag = node2.g_tag or linked node1 node2) then ( + if not (node1.g_tag = node2.g_tag) then ( node1.g_depends_on <- node2 :: node1.g_depends_on; node2.g_depends_by <- node1 :: node2.g_depends_by )