6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2024-12-13 04:30:23 +00:00
Code Issues Projects Releases Wiki Activity

A couple of minor fixes to the OCaml tutorial. PR10025 and PR10316. Patches by Damien Schoof!

Browse Source 
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@135293 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Eli Friedman 2011-07-15 20:03:30 +00:00
parent 96a7db084f
commit bc7d598cc1
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
docs/tutorial/OCamlLangImpl3.html
View File

@ -95,8 +95,9 @@ an undeclared parameter):</p>
<pre>
exception Error of string
let the_module = create_module (global_context ()) "my cool jit"
let builder = builder (global_context ())
let context = global_context ()
let the_module = create_module context "my cool jit"
let builder = builder context
let named_values:(string, llvalue) Hashtbl.t = Hashtbl.create 10
let double_type = double_type context
</pre>
@ -176,9 +177,9 @@ variables</a>.</p>
let rhs_val = codegen_expr rhs in
begin
match op with
| '+' -&gt; build_add lhs_val rhs_val "addtmp" builder
| '-' -&gt; build_sub lhs_val rhs_val "subtmp" builder
| '*' -&gt; build_mul lhs_val rhs_val "multmp" builder
| '+' -&gt; build_fadd lhs_val rhs_val "addtmp" builder
| '-' -&gt; build_fsub lhs_val rhs_val "subtmp" builder
| '*' -&gt; build_fmul lhs_val rhs_val "multmp" builder
| '&lt;' -&gt;
(* Convert bool 0/1 to double 0.0 or 1.0 *)
let i = build_fcmp Fcmp.Ult lhs_val rhs_val "cmptmp" builder in