diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-12 12:56:12 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-12 12:56:12 +0200 |
| commit | 43e2036b6f10efdb7e63613067da16fa7fa4b421 (patch) | |
| tree | d4d3b89b1cce665b8eb3b3e87a8e195c95c48ec1 /mppa_k1c/SelectOp.vp | |
| parent | af3bf7d993ebccd93577bc0986a6ab45729fdc1d (diff) | |
| download | compcert-kvx-43e2036b6f10efdb7e63613067da16fa7fa4b421.tar.gz compcert-kvx-43e2036b6f10efdb7e63613067da16fa7fa4b421.zip | |
some more simplification
Diffstat (limited to 'mppa_k1c/SelectOp.vp')
| -rw-r--r-- | mppa_k1c/SelectOp.vp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/mppa_k1c/SelectOp.vp b/mppa_k1c/SelectOp.vp index da0049fe..d5e3ee4a 100644 --- a/mppa_k1c/SelectOp.vp +++ b/mppa_k1c/SelectOp.vp @@ -365,7 +365,9 @@ Nondetfunction notint (e: expr) := | Eop Onxor (e1:::e2:::Enil) => Eop Oxor (e1:::e2:::Enil) | Eop (Onxorimm n) (e1:::Enil) => Eop (Oxorimm n) (e1:::Enil) | Eop Oandn (e1:::e2:::Enil) => Eop Oorn (e2:::e1:::Enil) + | Eop (Oandnimm n) (e1:::Enil) => Eop (Oorimm (Int.not n)) (e1:::Enil) | Eop Oorn (e1:::e2:::Enil) => Eop Oandn (e2:::e1:::Enil) + | Eop (Oornimm n) (e1:::Enil) => Eop (Oandimm (Int.not n)) (e1:::Enil) | Eop Onot (e1:::Enil) => e1 | Eop (Ointconst k) Enil => Eop (Ointconst (Int.not k)) Enil | _ => Eop Onot (e:::Enil) |