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

Add missing case for ifthenelse

Browse source
This commit is contained in:
Cédric Pasteur 2010-07-13 14:42:46 +02:00
parent ee767064b1
commit dab569d8ad
1 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
compiler/main/mls2obc.ml
View file

@ -156,15 +156,25 @@ let rec translate_eq map { Minils.eq_lhs = pat; Minils.eq_rhs = e }
m, si, j, s
| Minils.Etuplepat p_list,
Minils.Eapp({ Minils.a_op = Minils.Etuple }, act_list, _) ->
Minils.Eapp({ Minils.a_op = Minils.Etuple }, act_list, _) ->
List.fold_right2
(fun pat e ->
translate_eq map
(Minils.mk_equation pat e))
p_list act_list (m, si, j, s)
| pat, Minils.Eapp({ Minils.a_op = Minils.Eifthenelse }, [e1;e2;e3], _) ->
let cond = translate map (m, si, j, s) e1 in
let m, si, j, true_act = translate_eq map
(Minils.mk_equation pat e2) (m, si, j, s) in
let m, si, j, false_act = translate_eq map
(Minils.mk_equation pat e3) (m, si, j, s) in
let action = Acase (cond, [Name "true", true_act;
Name "false", false_act]) in
m, si, j, (control map ck action) :: s
| Minils.Evarpat x,
Minils.Eapp ({ Minils.a_op = Minils.Efield_update;
Minils.Eapp ({ Minils.a_op = Minils.Efield_update;
Minils.a_params = [{ se_desc = Sconstructor f }] },
[e1; e2], _) ->
let x = var_from_name map x in