aboutsummaryrefslogtreecommitdiffstats
path: root/backend/Selection.v
diff options
context:
space:
mode:
authorDavid Monniaux <david.monniaux@univ-grenoble-alpes.fr>2019-04-04 21:40:04 +0200
committerDavid Monniaux <david.monniaux@univ-grenoble-alpes.fr>2019-04-04 21:40:04 +0200
commite08d244a18870131820814880685504f0ea467e6 (patch)
tree58f95c1b0872bb7c6bc74a43b349f97171a37c51 /backend/Selection.v
parent71c38724bee43fe1a2ce67ee51f09478cd167929 (diff)
downloadcompcert-kvx-e08d244a18870131820814880685504f0ea467e6.tar.gz
compcert-kvx-e08d244a18870131820814880685504f0ea467e6.zip
more on select
Diffstat (limited to 'backend/Selection.v')
-rw-r--r--backend/Selection.v5
1 files changed, 1 insertions, 4 deletions
diff --git a/backend/Selection.v b/backend/Selection.v
index ec4a7b38..7191d5cb 100644
--- a/backend/Selection.v
+++ b/backend/Selection.v
@@ -283,10 +283,7 @@ Definition sel_builtin optid ef args :=
| Some id =>
match args with
| a1::a2::a3::nil =>
- OK (Sassign id (Eop (Oselect (Ccomp0 Ceq))
- ((sel_expr a3):::
- (sel_expr a2):::
- (sel_expr a1):::Enil)))
+ OK (Sassign id (select (sel_expr a3) (sel_expr a2) (sel_expr a1)))
| _ => Error (msg "__builtin_ternary_(u)int: arguments")
end
end