Handle implication operator in Sigali backend

6 years ago · 95bb1a72ad
parent 95c9eb699b
commit 95bb1a72ad
1 changed files with 2 additions and 0 deletions
--- a/compiler/minils/sigali/sigalimain.ml
+++ b/compiler/minils/sigali/sigalimain.ml
@ -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 ->