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

Bug correction in Inline_extvalues

Browse source 
Added handling of controllable variables in Inline_extvalues
This commit is contained in:
Gwenaël Delaval 2013-02-08 14:42:26 +01:00
parent 3a9b332b9b
commit f60b00e9e3
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
compiler/minils/transformations/inline_extvalues.ml
View file

@ -57,7 +57,10 @@ let gather_extvalues_node nd =
let ty_env =
let add env vd = Env.add vd.v_ident vd.v_linearity env in
let add_l env vd_list = List.fold_left add env vd_list in
(add_l (add_l (add_l Env.empty nd.n_output) nd.n_local) nd.n_input)
let env = add_l (add_l (add_l Env.empty nd.n_output) nd.n_local) nd.n_input in
match nd.n_contract with
| None -> env
| Some c -> add_l env c.c_controllables
in
(* Check for implicit cast from linear to non-linear type *)