diff options
| author | Eric Christopher <echristo@apple.com> | 2010-07-12 02:32:44 +0000 |
|---|---|---|
| committer | Eric Christopher <echristo@apple.com> | 2010-07-12 02:32:44 +0000 |
| commit | 856a682de4e91d9b68896711934843feeeb3aa64 (patch) | |
| tree | 8ca48ae332a380aff67e5c8c3b6aa64529ac80a4 /llvm/examples | |
| parent | de7201545e1e3ad2128379f25ba74a96351f1c93 (diff) | |
| download | bcm5719-llvm-856a682de4e91d9b68896711934843feeeb3aa64.tar.gz bcm5719-llvm-856a682de4e91d9b68896711934843feeeb3aa64.zip | |
Fix up the ocaml kaleidoscope example as well.
Note that the example currently doesn't appear to work.
llvm-svn: 108121
Diffstat (limited to 'llvm/examples')
4 files changed, 12 insertions, 12 deletions
diff --git a/llvm/examples/OCaml-Kaleidoscope/Chapter4/codegen.ml b/llvm/examples/OCaml-Kaleidoscope/Chapter4/codegen.ml index 69d0928b1bc..8957f4c610f 100644 --- a/llvm/examples/OCaml-Kaleidoscope/Chapter4/codegen.ml +++ b/llvm/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 diff --git a/llvm/examples/OCaml-Kaleidoscope/Chapter5/codegen.ml b/llvm/examples/OCaml-Kaleidoscope/Chapter5/codegen.ml index e0db2d2c862..e4570a65759 100644 --- a/llvm/examples/OCaml-Kaleidoscope/Chapter5/codegen.ml +++ b/llvm/examples/OCaml-Kaleidoscope/Chapter5/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 diff --git a/llvm/examples/OCaml-Kaleidoscope/Chapter6/codegen.ml b/llvm/examples/OCaml-Kaleidoscope/Chapter6/codegen.ml index e00edf294f8..96674359440 100644 --- a/llvm/examples/OCaml-Kaleidoscope/Chapter6/codegen.ml +++ b/llvm/examples/OCaml-Kaleidoscope/Chapter6/codegen.ml @@ -31,9 +31,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 diff --git a/llvm/examples/OCaml-Kaleidoscope/Chapter7/codegen.ml b/llvm/examples/OCaml-Kaleidoscope/Chapter7/codegen.ml index e8fac32f5b2..e66396eb6ac 100644 --- a/llvm/examples/OCaml-Kaleidoscope/Chapter7/codegen.ml +++ b/llvm/examples/OCaml-Kaleidoscope/Chapter7/codegen.ml @@ -60,9 +60,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 |
