Compare clock repr

Not sure this is necessary but it doesn't hurt to check twice.
2012-01-23 16:03:01 +01:00 · 2012-01-23 16:03:01 +01:00 · b1bd6dbd57
parent 2b59ec754a
commit b1bd6dbd57
1 changed files with 1 additions and 1 deletions
--- a/compiler/minils/analysis/interference.ml
+++ b/compiler/minils/analysis/interference.ml
@ -289,7 +289,7 @@ let compute_live_vars eqs =


 let rec disjoint_clock is_mem ck1 ck2 =
-  match ck1, ck2 with
+  match Clocks.ck_repr ck1, Clocks.ck_repr ck2 with
    | Cbase, Cbase -> false
    | Con(ck1, c1, n1), Con(ck2,c2,n2) ->
        if ck1 = ck2 & n1 = n2  & c1 <> c2 & not is_mem then