From 0d66eae95a8905ff985cd4738808fc93215a4904 Mon Sep 17 00:00:00 2001 From: David Monniaux Date: Sat, 16 Mar 2019 16:16:42 +0100 Subject: nand debut --- mppa_k1c/ValueAOp.v | 2 ++ 1 file changed, 2 insertions(+) (limited to 'mppa_k1c/ValueAOp.v') diff --git a/mppa_k1c/ValueAOp.v b/mppa_k1c/ValueAOp.v index 26a49135..a78857b3 100644 --- a/mppa_k1c/ValueAOp.v +++ b/mppa_k1c/ValueAOp.v @@ -65,6 +65,8 @@ Definition eval_static_operation (op: operation) (vl: list aval): aval := | Omodu, v1::v2::nil => modu v1 v2 | Oand, v1::v2::nil => and v1 v2 | Oandimm n, v1::nil => and v1 (I n) + | Onand, v1::v2::nil => notint (and v1 v2) + | Onandimm n, v1::nil => notint (and v1 (I n)) | Oor, v1::v2::nil => or v1 v2 | Oorimm n, v1::nil => or v1 (I n) | Oxor, v1::v2::nil => xor v1 v2 -- cgit