From e4bc9aa604977ee168c2f580d3fc3c3521f6c25c Mon Sep 17 00:00:00 2001 From: David Monniaux Date: Fri, 5 Apr 2019 13:36:56 +0200 Subject: Oselectf, Oselectfs with condition --- backend/Selection.v | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) (limited to 'backend/Selection.v') 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 -- cgit