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

Handling of implication operator in Ctrln back-end

Browse source
This commit is contained in:
Gwenaël Delaval 2017-03-13 18:01:05 +01:00
parent b0d719dcf2
commit 0515cf4f80
2 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
compiler/global/initial.ml
View file

@ -41,6 +41,7 @@ let pfalse = { qual = Pervasives; name = "false" }
let por = { qual = Pervasives; name = "or" }
let pand = { qual = Pervasives; name = "&" }
let pnot = { qual = Pervasives; name = "not" }
let pimp = { qual = Pervasives; name = "=>" }
let pint = { qual = Pervasives; name = "int" }
let tint = Types.Tid pint
let pfloat = { qual = Pervasives; name = "float" }

4
compiler/heptagon/ctrln/ctrlNbacAsEpt.ml
View file

@ -163,6 +163,9 @@ let nnop t : nnop -> fun_name =
let buop: buop -> fun_name = function
| `Neg -> Initial.pnot
let bbop: bbop -> fun_name = function
| `Imp -> Initial.pimp
let bnop: bnop -> fun_name = function
| `Conj -> Initial.pand
| `Disj -> Initial.por
@ -212,6 +215,7 @@ let translate_expr gd e =
| `Ref v -> mkb (Evar (ts gd v))
| `Bool b -> mkb (Econst (Initial.mk_static_bool b))
| `Buop (op, e) -> mkb (mk_uapp (Efun (buop op)) (tb e))
| `Bbop (op, e, f) -> mkb (mk_bapp (Efun (bbop op)) (tb e) (tb f))
| `Bnop (op, e, f, l) -> mkb_bapp ?flag (Efun (bnop op)) tb e f l
| `Bcmp (re, e, f) -> mkb (mk_bapp (Efun (eqrel re)) (tb e) (tb f))
| `Ecmp (re, e, f) -> mkb (mk_bapp (Efun (eqrel re)) (te e) (te f))