diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-05 13:36:56 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-05 13:36:56 +0200 |
| commit | e4bc9aa604977ee168c2f580d3fc3c3521f6c25c (patch) | |
| tree | 5e8b8fa5b533b8500959ae637835c6401d6e22de /mppa_k1c/Asmblockgen.v | |
| parent | 0b7517e9a348b830ad800759a0fa7e589ab98f4a (diff) | |
| download | compcert-kvx-e4bc9aa604977ee168c2f580d3fc3c3521f6c25c.tar.gz compcert-kvx-e4bc9aa604977ee168c2f580d3fc3c3521f6c25c.zip | |
Oselectf, Oselectfs with condition
Diffstat (limited to 'mppa_k1c/Asmblockgen.v')
| -rw-r--r-- | mppa_k1c/Asmblockgen.v | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/mppa_k1c/Asmblockgen.v b/mppa_k1c/Asmblockgen.v index b3478a9a..392b7953 100644 --- a/mppa_k1c/Asmblockgen.v +++ b/mppa_k1c/Asmblockgen.v @@ -752,7 +752,9 @@ Definition transl_op transl_cond_op cmp rd args k | Oselect cond, a0 :: a1 :: aS :: nil - | Oselectl cond, a0 :: a1 :: aS :: nil => + | Oselectl cond, a0 :: a1 :: aS :: nil + | Oselectf cond, a0 :: a1 :: aS :: nil + | Oselectfs cond, a0 :: a1 :: aS :: nil => assertion (mreg_eq a0 res); do r0 <- ireg_of a0; do r1 <- ireg_of a1; @@ -769,14 +771,6 @@ Definition transl_op do bt <- btest_for_cmpudz cmp; OK (Pcmoveu bt r0 rS r1 ::i k) end) - - | Oselectf, a0 :: a1 :: aS :: nil - | Oselectfs, a0 :: a1 :: aS :: nil => - assertion (mreg_eq a0 res); - do r0 <- ireg_of a0; - do r1 <- ireg_of a1; - do rS <- ireg_of aS; - OK (Pcmove BTwnez r0 rS r1 ::i k) | _, _ => Error(msg "Asmgenblock.transl_op") |