diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-04 16:27:52 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-04 16:27:52 +0200 |
commit | 7171888446d3d4b47765cc21d982eb2045cd00cd (patch) | |
tree | bc3d7c2141ee4e6ff8d92104a035aa8368e580c7 /mppa_k1c/Op.v | |
parent | b7ded97f34c5f0c670f43f2b15e77eb8874a764e (diff) | |
download | compcert-kvx-7171888446d3d4b47765cc21d982eb2045cd00cd.tar.gz compcert-kvx-7171888446d3d4b47765cc21d982eb2045cd00cd.zip |
some more progress on select
Diffstat (limited to 'mppa_k1c/Op.v')
-rw-r--r-- | mppa_k1c/Op.v | 15 |
1 files changed, 3 insertions, 12 deletions
diff --git a/mppa_k1c/Op.v b/mppa_k1c/Op.v index c3ea4baf..e619b2f5 100644 --- a/mppa_k1c/Op.v +++ b/mppa_k1c/Op.v @@ -283,18 +283,9 @@ Definition eval_condition0 (cond: condition0) (v1: val) (m: mem): option bool := end. Definition eval_select (cond : condition0) (v0 : val) (v1 : val) (vselect : val) (m: mem) : val := - match v0 with - | Vint i0 => - match v1 with - | Vint i1 => - match (eval_condition0 cond vselect m) with - | Some bval => - Vint (if bval then i1 else i0) - | None => Vundef - end - | _ => Vundef - end - | _ => Vundef + match v0, v1, (eval_condition0 cond vselect m) with + | Vint i0, Vint i1, Some bval => Vint (if bval then i1 else i0) + | _,_,_ => Vundef end. Definition eval_selectl (v0 : val) (v1 : val) (vselect : val) : val := |