Fix bad clock expectation for static_exps.

2010-07-23 21:52:24 +02:00 · 2010-07-23 21:52:24 +02:00 · 1719e2eb36
parent f124bb4fd7
commit 1719e2eb36
1 changed files with 1 additions and 1 deletions
--- a/compiler/minils/analysis/clocking.ml
+++ b/compiler/minils/analysis/clocking.ml
@ -117,7 +117,7 @@ let typ_of_name h x = Env.find x h

 let rec typing h e =
  let ct = match e.e_desc with
-    | Econst _ -> Ck (new_var ())
+    | Econst se -> skeleton (new_var ()) se.se_ty
    | Evar x -> Ck (typ_of_name h x)
    | Efby (c, e) -> typing h e
    | Eapp({a_op = op}, args, r) ->