jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

And don't forget to type the argument of when

Browse source
This commit is contained in:
Cédric Pasteur 2013-05-07 17:13:00 +02:00
parent 21aae319ee
commit f5cc4625e0
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
compiler/heptagon/analysis/linear_typing.ml
View file

@ -446,7 +446,9 @@ let rec typing_exp env e =
not_linear_for_exp e1, env
| Eapp ({ a_op = Efield }, _, _) -> Ltop, env
| Eapp ({ a_op = Earray }, _, _) -> Ltop, env
| Ewhen (e, _, _) -> lin_skeleton Ltop e.e_ty, env
| Ewhen (e1, _, _) ->
let env = safe_expect env (not_linear_for_exp e1) e1 in
lin_skeleton Ltop e.e_ty, env
| Estruct _ -> Ltop, env
| Emerge _ | Esplit _ | Eapp _ | Eiterator _ -> assert false
in