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

Handling of controllables in tomato

Browse source 
Added controllable variables as "inputs" in the
tomato pass.
This commit is contained in:
Gwenaël Delaval 2012-11-22 18:52:21 +01:00
parent 0e60d2e839
commit 5bdd891105
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
compiler/minils/transformations/tomato.ml
View file

@ -644,7 +644,13 @@ let node nd =
(* Initial environment *)
let tenv =
let is_input id = List.exists (fun vd -> ident_compare vd.v_ident id = 0) nd.n_input in
let controllables =
match nd.n_contract with
| None -> []
| Some c -> c.c_controllables in
let inputs = nd.n_input @ controllables in
let is_input id =
List.exists (fun vd -> ident_compare vd.v_ident id = 0) inputs in
List.fold_left (add_equation is_input) PatMap.empty nd.n_equs in
debug_do (fun () -> Format.printf "Very first tenv:\n%a@." debug_tenv tenv) ();