diff options
author | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2021-09-27 15:15:24 +0200 |
---|---|---|
committer | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2021-09-27 15:15:24 +0200 |
commit | d71e693e1b4844453f4b3c6356e514e8da4162e8 (patch) | |
tree | da1206e82ec80b3fd6460fc67ac8c93503086fae /kvx/SelectOp.vp | |
parent | a2c2d9e37cacd7c09401025ed5cf5e8afd7b88c0 (diff) | |
download | compcert-kvx-d71e693e1b4844453f4b3c6356e514e8da4162e8.tar.gz compcert-kvx-d71e693e1b4844453f4b3c6356e514e8da4162e8.zip |
tests in another way
Diffstat (limited to 'kvx/SelectOp.vp')
-rw-r--r-- | kvx/SelectOp.vp | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/kvx/SelectOp.vp b/kvx/SelectOp.vp index 2462b934..4e1087f9 100644 --- a/kvx/SelectOp.vp +++ b/kvx/SelectOp.vp @@ -434,16 +434,16 @@ Nondetfunction or (e1: expr) (e2: expr) := if and_dec (Int.eq_dec mask mask') (Int.eq_dec nmask (Int.not mask')) then Eop (Oinsf zstop zstart) (prev:::fld:::Enil) - else Eop Oor (e1:::e2:::Enil) - else let zstart := 0 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 nmask mask') - (Int.eq_dec mask (Int.not mask')) - then Eop (Oinsf zstop zstart) (fld:::prev:::Enil) - else Eop Oor (e1:::e2:::Enil) + else let zstart := 0 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 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) else Eop Oor (e1:::e2:::Enil) | _, _ => Eop Oor (e1:::e2:::Enil) end. |