diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-05 09:40:45 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-05 09:40:45 +0200 |
| commit | 57925286e8ba6055534cd0acbcf2b411366d3e0b (patch) | |
| tree | c8dfba8a2a178a829e7c4dacc1782380befdd790 /mppa_k1c/Asmblockgen.v | |
| parent | 483d0e37880dbe44af3dafdcac9b1110a37139c4 (diff) | |
| download | compcert-kvx-57925286e8ba6055534cd0acbcf2b411366d3e0b.tar.gz compcert-kvx-57925286e8ba6055534cd0acbcf2b411366d3e0b.zip | |
selectl with condition
Diffstat (limited to 'mppa_k1c/Asmblockgen.v')
| -rw-r--r-- | mppa_k1c/Asmblockgen.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/mppa_k1c/Asmblockgen.v b/mppa_k1c/Asmblockgen.v index d8706239..b3478a9a 100644 --- a/mppa_k1c/Asmblockgen.v +++ b/mppa_k1c/Asmblockgen.v @@ -751,7 +751,8 @@ Definition transl_op do rd <- ireg_of res; transl_cond_op cmp rd args k - | Oselect cond, a0 :: a1 :: aS :: nil => + | Oselect cond, a0 :: a1 :: aS :: nil + | Oselectl cond, a0 :: a1 :: aS :: nil => assertion (mreg_eq a0 res); do r0 <- ireg_of a0; do r1 <- ireg_of a1; @@ -769,7 +770,6 @@ Definition transl_op OK (Pcmoveu bt r0 rS r1 ::i k) end) - | Oselectl, a0 :: a1 :: aS :: nil | Oselectf, a0 :: a1 :: aS :: nil | Oselectfs, a0 :: a1 :: aS :: nil => assertion (mreg_eq a0 res); |