Lines Matching refs:rhs_val
206 let rhs_val = codegen_expr rhs 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
1090 let rhs_val = codegen_expr rhs 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