diff options
author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-02-02 18:31:46 +0100 |
---|---|---|
committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-02-02 18:31:46 +0100 |
commit | 4df03aaf5204d2f15885b49fe3f5c9cb61b4596d (patch) | |
tree | 89632035ea7de134700af303805fd4f4666ba494 /riscV/Asmgen.v | |
parent | 3e47c1b17e8ff03400106a80117eb86d7e7f9da6 (diff) | |
download | compcert-kvx-4df03aaf5204d2f15885b49fe3f5c9cb61b4596d.tar.gz compcert-kvx-4df03aaf5204d2f15885b49fe3f5c9cb61b4596d.zip |
Ccompu expansion
Diffstat (limited to 'riscV/Asmgen.v')
-rw-r--r-- | riscV/Asmgen.v | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/riscV/Asmgen.v b/riscV/Asmgen.v index 8d1e3a5c..17a2d3bb 100644 --- a/riscV/Asmgen.v +++ b/riscV/Asmgen.v @@ -731,10 +731,19 @@ Definition transl_op do rs1 <- ireg_of a1; do rs2 <- ireg_of a2; OK (apply_bin_r0_r0r0 optR0 (Psltw rd) rs1 rs2 :: k) + | OEsltuw optR0, a1 :: a2 :: nil => + do rd <- ireg_of res; + do rs1 <- ireg_of a1; + do rs2 <- ireg_of a2; + OK (apply_bin_r0_r0r0 optR0 (Psltuw rd) rs1 rs2 :: k) | OEsltiw n, a1 :: nil => do rd <- ireg_of res; do rs <- ireg_of a1; OK (Psltiw rd rs n :: k) + | OEsltiuw n, a1 :: nil => + do rd <- ireg_of res; + do rs <- ireg_of a1; + OK (Psltiuw rd rs n :: k) | OExoriw n, a1 :: nil => do rd <- ireg_of res; do rs <- ireg_of a1; |