diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-24 22:20:13 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-24 22:20:13 +0200 |
commit | 59089e5d11428dd224b3239bc7f5db602df9b177 (patch) | |
tree | d317db6712c80bc4dc45d3ef20bfa1cfb7b57213 /mppa_k1c/Asmvliw.v | |
parent | aa3ac1afb0b05a2d80f697c2179b59f8c73c83fb (diff) | |
download | compcert-kvx-59089e5d11428dd224b3239bc7f5db602df9b177.tar.gz compcert-kvx-59089e5d11428dd224b3239bc7f5db602df9b177.zip |
begin bitfields
Diffstat (limited to 'mppa_k1c/Asmvliw.v')
-rw-r--r-- | mppa_k1c/Asmvliw.v | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/mppa_k1c/Asmvliw.v b/mppa_k1c/Asmvliw.v index 7177d5fe..a347b6fc 100644 --- a/mppa_k1c/Asmvliw.v +++ b/mppa_k1c/Asmvliw.v @@ -306,7 +306,9 @@ Inductive arith_name_rr : Type := | Pcvtl2w (**r Convert Long to Word *) | Psxwd (**r Sign Extend Word to Double Word *) | Pzxwd (**r Zero Extend Word to Double Word *) - +(* | Pextfs (stop : int) (start : int) (**r extract bit field, signed *) *) + | Pextfz (stop : int) (start : int) (**r extract bit field, unsigned *) + | Pfabsd (**r float absolute double *) | Pfabsw (**r float absolute word *) | Pfnegd (**r float negate double *) @@ -878,6 +880,7 @@ Definition arith_eval_rr n v := | Pcvtl2w => Val.loword v | Psxwd => Val.longofint v | Pzxwd => Val.longofintu v + | Pextfz stop start => Val.extfz stop start v | Pfnegd => Val.negf v | Pfnegw => Val.negfs v | Pfabsd => Val.absf v |