diff options
author | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2021-09-27 14:48:10 +0200 |
---|---|---|
committer | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2021-09-27 14:48:10 +0200 |
commit | 5136fedb48f4d60f6acec881aa64b59d3aac2a91 (patch) | |
tree | 6388a53bd2045aee89b1e5ad3d3d9d64232120a8 /kvx/SelectOp.vp | |
parent | a0385b882df506b03770166117dd4e9fa18e63f2 (diff) | |
download | compcert-kvx-5136fedb48f4d60f6acec881aa64b59d3aac2a91.tar.gz compcert-kvx-5136fedb48f4d60f6acec881aa64b59d3aac2a91.zip |
progress in selectop
Diffstat (limited to 'kvx/SelectOp.vp')
-rw-r--r-- | kvx/SelectOp.vp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/kvx/SelectOp.vp b/kvx/SelectOp.vp index 5ddd2ca7..2462b934 100644 --- a/kvx/SelectOp.vp +++ b/kvx/SelectOp.vp @@ -436,13 +436,13 @@ Nondetfunction or (e1: expr) (e2: expr) := then Eop (Oinsf zstop zstart) (prev:::fld:::Enil) else Eop Oor (e1:::e2:::Enil) else let zstart := 0 in - let zstop := int_highest_bit mask in + let zstop := int_highest_bit nmask in if is_bitfield zstop zstart then let mask' := Int.repr (zbitfield_mask zstop zstart) in - if and_dec (Int.eq_dec mask mask') - (Int.eq_dec nmask (Int.not mask')) - then Eop (Oinsf zstop zstart) (prev:::fld:::Enil) + if and_dec (Int.eq_dec nmask mask') + (Int.eq_dec mask (Int.not mask')) + then Eop (Oinsf zstop zstart) (fld:::prev:::Enil) else Eop Oor (e1:::e2:::Enil) else Eop Oor (e1:::e2:::Enil) | _, _ => Eop Oor (e1:::e2:::Enil) |