diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-03-18 22:08:45 +0100 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-03-18 22:08:45 +0100 |
commit | ddbe4221279f9e75b4ed075156420e62a92f28d9 (patch) | |
tree | dec89af696277d93761f53a7d71de7cb7f1b7fbc /mppa_k1c/Asmblockgen.v | |
parent | ea12bb63c4ff63c12a383b8b66dff11fc5dc6e65 (diff) | |
download | compcert-kvx-ddbe4221279f9e75b4ed075156420e62a92f28d9.tar.gz compcert-kvx-ddbe4221279f9e75b4ed075156420e62a92f28d9.zip |
maddw dans la génération
Diffstat (limited to 'mppa_k1c/Asmblockgen.v')
-rw-r--r-- | mppa_k1c/Asmblockgen.v | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/mppa_k1c/Asmblockgen.v b/mppa_k1c/Asmblockgen.v index 87df237c..1646ff94 100644 --- a/mppa_k1c/Asmblockgen.v +++ b/mppa_k1c/Asmblockgen.v @@ -513,7 +513,12 @@ Definition transl_op | Ororimm n, a1 :: nil => do rd <- ireg_of res; do rs <- ireg_of a1; OK (Proriw rd rs n ::i k) - + | Omadd, a1 :: a2 :: a3 :: nil => + assertion (mreg_eq a1 res); + do r1 <- ireg_of a1; + do r2 <- ireg_of a2; + do r3 <- ireg_of a3; + OK (Pmaddw r1 r2 r3 ::i k) (* [Omakelong], [Ohighlong] should not occur *) | Olowlong, a1 :: nil => do rd <- ireg_of res; do rs <- ireg_of a1; |