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

Indentation fixes + remove unnecessary code

Browse source
This commit is contained in:
Cédric Pasteur 2011-04-14 09:59:27 +02:00
parent 12bd4e9c45
commit d2c4f09aa2
2 changed files with 50 additions and 55 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
compiler/heptagon/transformations/normalize.ml
View file

@ -236,14 +236,9 @@ and merge context e x c_e_list =
context, { e with e_desc = Emerge(x, c_e_list) }
(* applies distribution rules *)
(* [x = v fby e] should verifies that x is local *)
(* [(p1,...,pn) = (e1,...,en)] into [p1 = e1;...;pn = en] *)
and distribute ((d_list, eq_list) as context) eq pat e =
match pat, e.e_desc with
| Evarpat(x), Efby _ when not (vd_mem x d_list) ->
let (d_list, eq_list), n = equation context e in
let eq = { eq with eq_desc = Eeq(pat, { e with e_desc = n }) } in
d_list, eq::eq_list
| Etuplepat(pat_list), Eapp({ a_op = Etuple }, e_list, _) ->
let mk_eq pat e =
mk_equation ~stateful:eq.eq_stateful (Eeq (pat, e))