diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-05-11 20:17:09 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-05-11 20:17:09 +0200 |
commit | 17a8d91a82f67d7f62f8cbad41ba76a4b0b82a30 (patch) | |
tree | ed48cc42dfba0a4332daa0655990b11dae000add /mppa_k1c/Asmblockgen.v | |
parent | a095ac045485f5693d937864f7990ab5de427f1d (diff) | |
download | compcert-kvx-17a8d91a82f67d7f62f8cbad41ba76a4b0b82a30.tar.gz compcert-kvx-17a8d91a82f67d7f62f8cbad41ba76a4b0b82a30.zip |
apply .xs onto addx4 etc
Diffstat (limited to 'mppa_k1c/Asmblockgen.v')
-rw-r--r-- | mppa_k1c/Asmblockgen.v | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/mppa_k1c/Asmblockgen.v b/mppa_k1c/Asmblockgen.v index 7be83962..71af4798 100644 --- a/mppa_k1c/Asmblockgen.v +++ b/mppa_k1c/Asmblockgen.v @@ -449,6 +449,12 @@ Definition transl_op | Oaddximm shift n, a1 :: nil => do rd <- ireg_of res; do rs <- ireg_of a1; OK (Paddxiw shift rd rs n ::i k) + | Oaddxl shift, a1 :: a2 :: nil => + do rd <- ireg_of res; do rs1 <- ireg_of a1; do rs2 <- ireg_of a2; + OK (Paddxl shift rd rs1 rs2 ::i k) + | Oaddxlimm shift n, a1 :: nil => + do rd <- ireg_of res; do rs <- ireg_of a1; + OK (Paddxil shift rd rs n ::i k) | Oneg, a1 :: nil => do rd <- ireg_of res; do rs <- ireg_of a1; OK (Pnegw rd rs ::i k) |