Fix up the ocaml kaleidoscope example as well.

[oota-llvm.git] / examples / OCaml-Kaleidoscope / Chapter4 / codegen.ml

diff --git a/examples/OCaml-Kaleidoscope/Chapter4/codegen.ml b/examples/OCaml-Kaleidoscope/Chapter4/codegen.ml
index 69d0928b1bc33b708c9bab2caa2834472300243c..8957f4c610f4d811bae6b2e5f65851dfb6b999fa 100644 (file)
--- a/examples/OCaml-Kaleidoscope/Chapter4/codegen.ml
+++ b/examples/OCaml-Kaleidoscope/Chapter4/codegen.ml
@@ -22,9 +22,9 @@ let rec codegen_expr = function
       let rhs_val = codegen_expr rhs in
       begin
         match op with
-        | '+' -> build_add lhs_val rhs_val "addtmp" builder
-        | '-' -> build_sub lhs_val rhs_val "subtmp" builder
-        | '*' -> build_mul lhs_val rhs_val "multmp" builder
+        | '+' -> build_fadd lhs_val rhs_val "addtmp" builder
+        | '-' -> build_fsub lhs_val rhs_val "subtmp" builder
+        | '*' -> build_fmul lhs_val rhs_val "multmp" builder
         | '<' ->
             (* Convert bool 0/1 to double 0.0 or 1.0 *)
             let i = build_fcmp Fcmp.Ult lhs_val rhs_val "cmptmp" builder in