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

Fixed Vars read function

Browse source 
When is_left is true, the variables to the right
of the fby should be ignored.
This commit is contained in:
Cédric Pasteur 2010-07-15 11:57:47 +02:00
parent f2559b5e87
commit f8ecf3d76c
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
compiler/minils/mls_utils.ml
View file

@ -66,16 +66,20 @@ struct
| Cbase | Cvar { contents = Cindex _ } -> acc
| Cvar { contents = Clink ck } -> vars_ck acc ck
let read_exp read_funs (is_left, acc) e =
let read_exp read_funs (is_left, acc_init) e =
(* recursive call *)
let _,(_, acc) = Mls_mapfold.exp read_funs (is_left, acc) e in
let _,(_, acc) = Mls_mapfold.exp read_funs (is_left, acc_init) e in
(* special cases *)
let acc = match e.e_desc with
| Evar x | Emerge(x,_) | Ewhen(_, _, x)
| Eapp(_, _, Some x) | Eiterator (_, _, _, _, Some x) ->
add x acc
| Efby(_, e) ->
if is_left then vars_ck acc e.e_ck else acc
if is_left then
(* do not consider variables to the right
of the fby, only clocks*)
vars_ck acc_init e.e_ck
else acc
| _ -> acc
in
e, (is_left, vars_ck acc e.e_ck)