Fixed linear typing of const tuples

2011-05-02 17:58:26 +02:00 · 2011-05-02 17:58:26 +02:00 · 840f6672df
commit 840f6672df
parent b7ba8e7913
1 changed files with 1 additions and 1 deletions
--- a/compiler/heptagon/analysis/linear_typing.ml
+++ b/compiler/heptagon/analysis/linear_typing.ml
@ -390,7 +390,7 @@ let rec typing_pat env = function
    the expected linearity. *)
 let rec typing_exp env e =
  let l, env = match e.e_desc with
-    | Econst _ -> Ltop, env
+    | Econst _ -> lin_skeleton Ltop e.e_ty, env
    | Evar x -> lin_of_ident x env, env
    | Elast _ -> Ltop, env
    | Epre (_, e) ->