Lines Matching refs:lhs_val
205 let lhs_val = codegen_expr lhs in
209 | '+' -> build_add lhs_val rhs_val "addtmp" builder
210 | '-' -> build_sub lhs_val rhs_val "subtmp" builder
211 | '*' -> build_mul lhs_val rhs_val "multmp" builder
214 let i = build_fcmp Fcmp.Ult lhs_val rhs_val "cmptmp" builder in
225 build_call callee [|lhs_val; rhs_val|] "binop" builder
1089 let lhs_val = codegen_expr lhs in
1093 | '+' -> build_add lhs_val rhs_val "addtmp" builder
1094 | '-' -> build_sub lhs_val rhs_val "subtmp" builder
1095 | '*' -> build_mul lhs_val rhs_val "multmp" builder
1098 let i = build_fcmp Fcmp.Ult lhs_val rhs_val "cmptmp" builder in
1109 build_call callee [|lhs_val; rhs_val|] "binop" builder