diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-03-18 13:56:32 +0100 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-03-18 13:56:32 +0100 |
| commit | 6cd9c6faecaa830160fbca31924e29a5e791f499 (patch) | |
| tree | 323429ad775065bf0e44e1cdc3595f1dfe1037c7 /mppa_k1c/Asmblockgen.v | |
| parent | e55d69912ce45869fa446c7d98ed306a58c81a92 (diff) | |
| download | compcert-kvx-6cd9c6faecaa830160fbca31924e29a5e791f499.tar.gz compcert-kvx-6cd9c6faecaa830160fbca31924e29a5e791f499.zip | |
andn / orn long complete I think
Diffstat (limited to 'mppa_k1c/Asmblockgen.v')
| -rw-r--r-- | mppa_k1c/Asmblockgen.v | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/mppa_k1c/Asmblockgen.v b/mppa_k1c/Asmblockgen.v index c3ac217b..87df237c 100644 --- a/mppa_k1c/Asmblockgen.v +++ b/mppa_k1c/Asmblockgen.v @@ -547,6 +547,9 @@ Definition transl_op | Odivlu, _ => Error (msg "Asmblockgen.transl_op: Odivlu") (* Géré par fonction externe *) | Omodl, _ => Error (msg "Asmblockgen.transl_op: Omodl") (* Géré par fonction externe *) | Omodlu, _ => Error (msg "Asmblockgen.transl_op: Omodlu") (* Géré par fonction externe *) + | Onotl, a1 :: nil => + do rd <- ireg_of res; do rs <- ireg_of a1; + OK (xorimm64 rd rs Int64.mone ::i k) | Oandl, a1 :: a2 :: nil => do rd <- ireg_of res; do rs1 <- ireg_of a1; do rs2 <- ireg_of a2; OK (Pandl rd rs1 rs2 ::i k) |