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

Handle `when' operators in general expressions, in Controllable-Nbac backend.

Browse source 
- CtrlNbacGen: ignore sub-sampling in general expressions.
This commit is contained in:
Nicolas Berthier 2013-11-26 18:00:11 +01:00
parent 934c9f9a85
commit c132b53732
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
compiler/minils/ctrl-n/ctrlNbacGen.ml
View file

@ -168,7 +168,7 @@ let translate_app ~pref op el =
(** [translate_exp gd e] translates the {e memoryless} expression [e] into its
Controllable Nbac representation. *)
let translate_exp ~pref t ({ e_desc = desc; e_ty = ty }) = (* XXX clock? *)
let rec translate_exp ~pref t ({ e_desc = desc; e_ty = ty }) = (* XXX clock? *)
let typ = translate_typ ty in assert (t = typ); match desc with
| Eextvalue ext -> translate_ext ~pref ext
| Eapp ({ a_op }, el, _) -> translate_app ~pref a_op el
@ -180,7 +180,7 @@ let translate_exp ~pref t ({ e_desc = desc; e_ty = ty }) = (* XXX clock? *)
(translate_ext ~pref e) x)
(translate_ext ~pref e)
l
| Ewhen _ -> failwith "TODO Unsupported operation: isolated `when'!"
| Ewhen (exp, _, _) -> translate_exp ~pref t exp
| Efby _ -> failwith "TODO: translate_exp (fby)"
| Estruct _ -> failwith "TODO: translate_exp (struct)"
| _ -> failwith "TODO: translate_exp"