diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-05-11 06:02:13 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-05-11 06:02:13 +0200 |
commit | d8d22519bff9414f973a1310cb32eb60e6695796 (patch) | |
tree | 54536b71fa366642f30e4a1ab90f219cdff97b12 /mppa_k1c/Asmblockgen.v | |
parent | 295058286407ec6c4182f2b12b27608fc7d28f95 (diff) | |
download | compcert-kvx-d8d22519bff9414f973a1310cb32eb60e6695796.tar.gz compcert-kvx-d8d22519bff9414f973a1310cb32eb60e6695796.zip |
begin generating Prevsub etc. from Oxxx to Pxxx
Diffstat (limited to 'mppa_k1c/Asmblockgen.v')
-rw-r--r-- | mppa_k1c/Asmblockgen.v | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/mppa_k1c/Asmblockgen.v b/mppa_k1c/Asmblockgen.v index f2292f9a..839d444d 100644 --- a/mppa_k1c/Asmblockgen.v +++ b/mppa_k1c/Asmblockgen.v @@ -449,6 +449,9 @@ Definition transl_op | Osub, a1 :: a2 :: nil => do rd <- ireg_of res; do rs1 <- ireg_of a1; do rs2 <- ireg_of a2; OK (Psubw rd rs1 rs2 ::i k) + | Orevsubimm n, a1 :: nil => + do rd <- ireg_of res; do rs <- ireg_of a1; + OK (Prevsubiw rd rs n ::i k) | Omul, a1 :: a2 :: nil => do rd <- ireg_of res; do rs1 <- ireg_of a1; do rs2 <- ireg_of a2; OK (Pmulw rd rs1 rs2 ::i k) |