diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-03-25 12:58:26 +0100 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-03-25 12:58:26 +0100 |
| commit | bf1173b1609d04b8c99d1bdbcda4fffbb3745578 (patch) | |
| tree | df975192e783e086ab2ad67386c903c103b46e8b /mppa_k1c/Asmblockgen.v | |
| parent | 680ab18c29b5f72483780146d83e01c8ab498fb9 (diff) | |
| download | compcert-kvx-bf1173b1609d04b8c99d1bdbcda4fffbb3745578.tar.gz compcert-kvx-bf1173b1609d04b8c99d1bdbcda4fffbb3745578.zip | |
more on cmove
Diffstat (limited to 'mppa_k1c/Asmblockgen.v')
| -rw-r--r-- | mppa_k1c/Asmblockgen.v | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/mppa_k1c/Asmblockgen.v b/mppa_k1c/Asmblockgen.v index c03e319c..89f3bac2 100644 --- a/mppa_k1c/Asmblockgen.v +++ b/mppa_k1c/Asmblockgen.v @@ -729,6 +729,13 @@ Definition transl_op do rd <- ireg_of res; transl_cond_op cmp rd args k + | Oselect, 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") end. |