[ast2C] proposition initiale

2022-12-17 16:01:48 +01:00
parent fa052f70e2
commit 0da0f58b22
7 changed files with 202 additions and 266 deletions
--- a/src/passes.ml
+++ b/src/passes.ml
@@ -601,8 +601,8 @@ let clock_unification_pass verbose debug main_fn ast =
      | _ -> failure ("Merge format")
    end
  | ETriOp(_, TOp_if, e1, e2, e3) ->
-      let c1 = compute_clock_exp e1
-      and c2 = compute_clock_exp e2
+      let (* Unused: c1 = compute_clock_exp e1
+      and*) c2 = compute_clock_exp e2
      and c3 = compute_clock_exp e3 in
      if c2 <> c3 then
        failure "If clocks"