diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-05 13:36:56 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-05 13:36:56 +0200 |
commit | e4bc9aa604977ee168c2f580d3fc3c3521f6c25c (patch) | |
tree | 5e8b8fa5b533b8500959ae637835c6401d6e22de /backend/Selection.v | |
parent | 0b7517e9a348b830ad800759a0fa7e589ab98f4a (diff) | |
download | compcert-kvx-e4bc9aa604977ee168c2f580d3fc3c3521f6c25c.tar.gz compcert-kvx-e4bc9aa604977ee168c2f580d3fc3c3521f6c25c.zip |
Oselectf, Oselectfs with condition
Diffstat (limited to 'backend/Selection.v')
-rw-r--r-- | backend/Selection.v | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/backend/Selection.v b/backend/Selection.v index 971f9948..d2067dab 100644 --- a/backend/Selection.v +++ b/backend/Selection.v @@ -308,10 +308,7 @@ Definition sel_builtin optid ef args := | Some id => match args with | a1::a2::a3::nil => - OK (Sassign id (Eop Oselectf - ((sel_expr a3)::: - (sel_expr a2)::: - (sel_expr a1):::Enil))) + OK (Sassign id (selectf (sel_expr a3) (sel_expr a2) (sel_expr a1))) | _ => Error (msg "__builtin_ternary_double: arguments") end end @@ -323,10 +320,7 @@ Definition sel_builtin optid ef args := | Some id => match args with | a1::a2::a3::nil => - OK (Sassign id (Eop Oselectfs - ((sel_expr a3)::: - (sel_expr a2)::: - (sel_expr a1):::Enil))) + OK (Sassign id (selectfs (sel_expr a3) (sel_expr a2) (sel_expr a1))) | _ => Error (msg "__builtin_ternary_float: arguments") end end |