diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-05 09:40:45 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-05 09:40:45 +0200 |
commit | 57925286e8ba6055534cd0acbcf2b411366d3e0b (patch) | |
tree | c8dfba8a2a178a829e7c4dacc1782380befdd790 /backend/Selection.v | |
parent | 483d0e37880dbe44af3dafdcac9b1110a37139c4 (diff) | |
download | compcert-kvx-57925286e8ba6055534cd0acbcf2b411366d3e0b.tar.gz compcert-kvx-57925286e8ba6055534cd0acbcf2b411366d3e0b.zip |
selectl with condition
Diffstat (limited to 'backend/Selection.v')
-rw-r--r-- | backend/Selection.v | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/backend/Selection.v b/backend/Selection.v index 7191d5cb..971f9948 100644 --- a/backend/Selection.v +++ b/backend/Selection.v @@ -296,10 +296,7 @@ Definition sel_builtin optid ef args := | Some id => match args with | a1::a2::a3::nil => - OK (Sassign id (Eop Oselectl - ((sel_expr a3)::: - (sel_expr a2)::: - (sel_expr a1):::Enil))) + OK (Sassign id (selectl (sel_expr a3) (sel_expr a2) (sel_expr a1))) | _ => Error (msg "__builtin_ternary_(u)long: arguments") end end |