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

Handle implication operator in Sigali backend

Browse source
This commit is contained in:
Nicolas Berthier 2018-03-02 14:26:10 +00:00
parent 95c9eb699b
commit 95bb1a72ad
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
compiler/minils/sigali/sigalimain.ml
View file

@ -135,6 +135,8 @@ let rec translate prefix ({ Minils.e_desc = desc } as e) =
| "not", [e] -> Snot(translate_ext prefix e)
| "or", [e1;e2] -> Sor((translate_ext prefix e1),
(translate_ext prefix e2))
| "=>", [e1;e2] -> Sor(Snot (translate_ext prefix e1),
(translate_ext prefix e2))
| "&", [e1;e2] -> Sand((translate_ext prefix e1),
(translate_ext prefix e2))
| "=", [e1;e2] when (actual_ty e1.Minils.w_ty) = Tbool ->