diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-03 22:15:21 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-03 22:15:21 +0200 |
commit | 524678ff9a521433ff0b5af2a3986c1e385e699e (patch) | |
tree | fc1f2e2a5f085f2bffede2530f02402839d30ca4 /mppa_k1c/Asmblockgen.v | |
parent | 4518486a771055e633aa050141d9721353d542d7 (diff) | |
download | compcert-kvx-524678ff9a521433ff0b5af2a3986c1e385e699e.tar.gz compcert-kvx-524678ff9a521433ff0b5af2a3986c1e385e699e.zip |
for floats and doubles, asmgen support
Diffstat (limited to 'mppa_k1c/Asmblockgen.v')
-rw-r--r-- | mppa_k1c/Asmblockgen.v | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/mppa_k1c/Asmblockgen.v b/mppa_k1c/Asmblockgen.v index a7e3c8ef..ad01ff89 100644 --- a/mppa_k1c/Asmblockgen.v +++ b/mppa_k1c/Asmblockgen.v @@ -729,14 +729,10 @@ 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) - - | Oselectl, a0 :: a1 :: aS :: nil => + | Oselect, a0 :: a1 :: aS :: nil + | Oselectl, a0 :: a1 :: aS :: nil + | 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; |