diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-29 11:49:21 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-29 11:49:21 +0200 |
| commit | 9d8fcdd62607141814089bfa407d3dae63afa0b6 (patch) | |
| tree | 2c63f1c501e48cec8a91a4b66e1c7a44d369e649 /mppa_k1c/Asmblockgen.v | |
| parent | 5c42545efcde8cda26a64f13ee6a1524fb17bc69 (diff) | |
| download | compcert-kvx-9d8fcdd62607141814089bfa407d3dae63afa0b6.tar.gz compcert-kvx-9d8fcdd62607141814089bfa407d3dae63afa0b6.zip | |
srsd
Diffstat (limited to 'mppa_k1c/Asmblockgen.v')
| -rw-r--r-- | mppa_k1c/Asmblockgen.v | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/mppa_k1c/Asmblockgen.v b/mppa_k1c/Asmblockgen.v index 835b8a8c..49f6e4f9 100644 --- a/mppa_k1c/Asmblockgen.v +++ b/mppa_k1c/Asmblockgen.v @@ -641,11 +641,7 @@ Definition transl_op OK (Psrlil rd rs n ::i k) | Oshrxlimm n, a1 :: nil => do rd <- ireg_of res; do rs <- ireg_of a1; - OK (if Int.eq n Int.zero then Pmv rd rs ::i k else - Psrail RTMP rs (Int.repr 63) ::i - Psrlil RTMP RTMP (Int.sub Int64.iwordsize' n) ::i - Paddl RTMP rs RTMP ::i - Psrail rd RTMP n ::i k) + OK (Psrxil rd rs n ::i k) | Omaddl, a1 :: a2 :: a3 :: nil => assertion (mreg_eq a1 res); do r1 <- ireg_of a1; |