diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-25 16:24:10 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-25 16:24:10 +0200 |
commit | ff1e531a3f2a58b6fbdc4a5a29f2520d5367c01c (patch) | |
tree | f97978bb98f45613e5eb1621684f6b181398f1b9 /mppa_k1c/Asmvliw.v | |
parent | 6d1223d053f1ff10792d5ed5d00d3830ff61e9d7 (diff) | |
download | compcert-kvx-ff1e531a3f2a58b6fbdc4a5a29f2520d5367c01c.tar.gz compcert-kvx-ff1e531a3f2a58b6fbdc4a5a29f2520d5367c01c.zip |
start of extfzl/extfsl
Diffstat (limited to 'mppa_k1c/Asmvliw.v')
-rw-r--r-- | mppa_k1c/Asmvliw.v | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/mppa_k1c/Asmvliw.v b/mppa_k1c/Asmvliw.v index 13ff5422..3c308960 100644 --- a/mppa_k1c/Asmvliw.v +++ b/mppa_k1c/Asmvliw.v @@ -309,6 +309,8 @@ Inductive arith_name_rr : Type := (* | Pextfs (stop : int) (start : int) (**r extract bit field, signed *) *) | Pextfz (stop : Z) (start : Z) (**r extract bit field, unsigned *) | Pextfs (stop : Z) (start : Z) (**r extract bit field, signed *) + | Pextfzl (stop : Z) (start : Z) (**r extract bit field, unsigned *) + | Pextfsl (stop : Z) (start : Z) (**r extract bit field, signed *) | Pfabsd (**r float absolute double *) | Pfabsw (**r float absolute word *) @@ -883,6 +885,8 @@ Definition arith_eval_rr n v := | Pzxwd => Val.longofintu v | Pextfz stop start => Val.extfz stop start v | Pextfs stop start => Val.extfs stop start v + | Pextfzl stop start => Val.extfzl stop start v + | Pextfsl stop start => Val.extfsl stop start v | Pfnegd => Val.negf v | Pfnegw => Val.negfs v | Pfabsd => Val.absf v |